Eric Marsden <[EMAIL PROTECTED]> writes: > 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*) > `----
This seems like a really useful snippet of code. Are there reasons why it isn't included in the standard builds of CMUCL? _______________________________________________________________________________ Don Geddis http://don.geddis.org [EMAIL PROTECTED]
