(prog varlist &body body-decls)
(prog2 form1 result &body body)
(defun albert-info (str &rest args) "Prints a format-string STR with args ARGS to *default-albert-output* with albert-prefix." (prog2 (format *default-albert-output* "~&Albert: ") (apply #'format (cons *default-albert-output* (cons str args))) (format *default-albert-output* "~%")))
(prog1 result &body body)
(defun genvar (&optional (string "TEMP")) (prog1 (make-symbol (format nil "~a~d" string *genvar-counter*)) (incf *genvar-counter*)))
(prog* varlist &body body-decls)
(multiple-value-prog1 values-form &rest forms)
(alexandria.0.dev:multiple-value-prog2 first-form second-form &body forms)