Greetings!

Matt Kaufmann <[email protected]> writes:

> Hi, Camm --

> Thanks, but the same error still occurs.

OK, how about this:

(let ((f #'in-package))
       (setf (macro-function 'in-package) (lambda (x y) `(funcall ,f ',(cadr x) 
,@(cddr x)))))


Take care,
-- 
Camm Maguire                                        [email protected]
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah

_______________________________________________
Gcl-devel mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/gcl-devel

Reply via email to