be more tolerant to missing (-body-) in with-macro (cl-qq bodies may contain CLOS AST instances where it cannot descent)
Sun Dec 14 12:21:16 PST 2008 attila.lendvai@gmail.com
* be more tolerant to missing (-body-) in with-macro (cl-qq bodies may contain CLOS AST instances where it cannot descent)
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-cl-def/definers.lisp new-cl-def/definers.lisp
--- old-cl-def/definers.lisp 2014-07-25 10:45:00.000000000 -0700
+++ new-cl-def/definers.lisp 2014-07-25 10:45:00.000000000 -0700
@@ -270,7 +270,8 @@
form)))
(setf body (process-body body))
(when (eq inner-arguments 'undefined)
- (error "Please insert at least one (-body-) form in the body of a with-macro to invoke the user provided body!"))
+ (simple-style-warning "You probably want to have at least one (-body-) form in the body of a WITH-MACRO to invoke the user provided body...")
+ (setf inner-arguments nil))
(bind ((args-to-remove-from-fn ())
(fn-args args)
(processed-inner-arguments