From: Martin T. <ma...@if...> - 2002-05-02 09:26:28
|
Sam, I see you have implemented a macro to fix the redefinition thing. However, it doesn't set lw:*handle-warn-on-redefinition* on loading, which is needed. (It also lacks a space, making it not work ;). The following patch fixes this. --- clocc/src/port/ext.lisp Mon Apr 22 12:01:04 2002 +++ ../clocc/src/port/ext.lisp Thu May 2 11:09:41 2002 @@ -176,9 +176,9 @@ (ext:package-lock ,pack) nil)) #+lispworks (declare (ignore pack)) #+lispworks - `(eval-when (:compile-toplevel) + `(eval-when (:compile-toplevel :load-toplevel) (setf *lock-package-saved-value* lw:*handle-warn-on-redefinition* - lw:*handle-warn-on-redefinition*nil)) + lw:*handle-warn-on-redefinition* nil)) #-(or allegro clisp lispworks) ;; nothing to be done (declare (ignore pack))) @@ -195,7 +195,7 @@ (makunbound '*lock-package-saved-value*)) #+lispworks (declare (ignore pack)) #+lispworks - `(eval-when (:compile-toplevel) + `(eval-when (:compile-toplevel :load-toplevel) (setf lw:*handle-warn-on-redefinition* *lock-package-saved-value*) (makunbound '*lock-package-saved-value*)) #-(or allegro clisp lispworks) Martin -- "An ideal world is left as an exercise to the reader." -Paul Graham, On Lisp |