Changeset 13344

Timestamp:

Dec 30, 2009, 2:40:58 AM (15 years ago)

Author:

Gary Byers

Message:

In REMOVE-STRUCTURE-DEFS, don' call FMAKUNBOUND on a user-defined
structure print function.

File:

• trunk/source/lib/defstruct.lisp (modified) (1 diff)

trunk/source/lib/defstruct.lisp

@@ -285 +285 @@
           (when def (set-function-info refname nil)))
         (when (symbolp refname)(fmakunbound refname)))
+      #|
+      ;; The print-function may indeed have become obsolete,
+      ;; but we can't generally remove user-defined code
       (let ((print-fn (sd-print-function sd)))
         (when (symbolp print-fn) (fmakunbound print-fn)))
+      |#
       (let ((constructor (sd-constructor sd)))
         (when (symbolp constructor) (fmakunbound constructor)))