Added COMPILE-AND-WRITE

lass.lisp

@@ -63,3 +63,9 @@ Returns OUT"
                       collect read)))
        :stream outstream :pretty pretty))
     out))
+
+(defun compile-and-write (&rest forms)
+  "Shortcut for (WRITE-SHEET (COMPILE-SHEET FORMS*))"
+  (write-sheet
+   (apply #'compile-sheet
+          forms)))

package.lisp

@@ -23,7 +23,8 @@
    #:define-special-block
    #:define-special-attribute
    #:define-special-selector
-   #:generate)
+   #:generate
+   #:compile-and-write)
   ;; special.lisp
   (:export
    #:define-single-arg-selector