>>>>> "woc" == Wayne O Cochran <[EMAIL PROTECTED]> writes:
woc> * (defun max (a b) (if (> a b) a b))
as other people have noted, your problem comes from redefining
a standard Common Lisp function. You can get CMUCL to ask you whether
you really want to mess things up by adding code like this to your
CMUCL initialization file (or the site-init file might be more
appropriate for teaching purposes):
,----
| (defun redefining-function (function replacement)
| (declare (ignore replacement))
| (when (eq (symbol-package function) (find-package "COMMON-LISP"))
| (cerror "Redefine ~a anyway"
| "Attempt to change a function in the COMMON-LISP package."
| function)))
|
| (push 'redefining-function ext:*setf-fdefinition-hook*)
`----
--
Out of memory.
We wish to hold the whole sky,
But we never will.
