I'm learning cl and have just passed to cmucl (on Gentoo distribution). I want to rexecute the code I've written reading the book On Lisp. I don't understand why I've the following problem executing this macro:
(defmacro memq (obj lst) `(member ,obj ,lst :test #'eq)) The error is the following: [EMAIL PROTECTED] gcast $ lisp CMU Common Lisp CVS release-18e-branch + minimal debian patches, running on calcolino With core: /usr/lib/cmucl/lisp.core Dumped on: Thu, 2004-01-08 15:34:13+01:00 on calcolino For support see http://www.cons.org/cmucl/support.html Send bug reports to the Gentoo Bugzilla http://bugs.gentoo.org Type (help) for help, (quit) to exit, and (demo) to see the demos Loaded subsystems: Python 1.1, target Intel x86 CLOS 18e (based on PCL September 16 92 PCL (f)) * (defmacro memq (obj lst) `(member ,obj ,lst :test #'eq)) MEMQ * (memq 1 '(1 2 3 4)) Unable to display error condition Restarts: 0: [ABORT] Return to Top-Level. Debug (type H for help) ("DEFUN (SETF MACRO-FUNCTION)" #<unused-arg> #<unused-arg>)[:OPTIONAL] Source: Unknown location: using block start. Error finding source: Unable to display error condition Restarts: 0: [ABORT] Return to Top-Level. Debug (type H for help) ("DEFUN (SETF MACRO-FUNCTION)" #<unused-arg> #<unused-arg>)[:OPTIONAL] Source: Unknown location: using block start. Error finding source: Unable to display error condition Restarts: 0: [ABORT] Return to Top-Level. Debug (type H for help) ("DEFUN (SETF MACRO-FUNCTION)" #<unused-arg> #<unused-arg>)[:OPTIONAL] Source: Unknown location: using block start. Error finding source: Unable to display error condition Restarts: 0: [ABORT] Return to Top-Level. Debug (type H for help) ("DEFUN (SETF MACRO-FUNCTION)" #<unused-arg> #<unused-arg>)[:OPTIONAL] Source: Unknown location: using block start. Error finding source: Unable to display error condition Restarts: 0: [ABORT] Return to Top-Level. Debug (type H for help) ("DEFUN (SETF MACRO-FUNCTION)" #<unused-arg> #<unused-arg>)[:OPTIONAL] Source: Unknown location: using block start. Error finding source: Unable to display error condition Restarts: 0: [ABORT] Return to Top-Level. Debug (type H for help) ("DEFUN (SETF MACRO-FUNCTION)" #<unused-arg> #<unused-arg>)[:OPTIONAL] Source: Unknown location: using block start. Error finding source: Unable to display error condition Restarts: 0: [ABORT] Return to Top-Level. Debug (type H for help) ("DEFUN (SETF MACRO-FUNCTION)" #<unused-arg> #<unused-arg>)[:OPTIONAL] Source: Unknown location: using block start. Error finding source: Unable to display error condition Restarts: 0: [ABORT] Return to Top-Level. Debug (type H for help) ("DEFUN (SETF MACRO-FUNCTION)" #<unused-arg> #<unused-arg>)[:OPTIONAL] Source: Unknown location: using block start. Error finding source: Unable to display error condition Restarts: 0: [ABORT] Return to Top-Level. Debug (type H for help) ("DEFUN (SETF MACRO-FUNCTION)" #<unused-arg> #<unused-arg>)[:OPTIONAL] Source: Unknown location: using block start. Error finding source: Help! 11 nested errors. KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded. Debug (type H for help) ("DEFUN (SETF MACRO-FUNCTION)" #<unused-arg> #<unused-arg>)[:OPTIONAL] Source: Unknown location: using block start. Help! 12 nested errors. KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded. Debug (type H for help) (DEBUG::DEBUG-LOOP) Source: *
