Changeset 13344


Ignore:
Timestamp:
Dec 30, 2009, 10:40:58 AM (10 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/defstruct.lisp

    r13067 r13344  
    285285          (when def (set-function-info refname nil)))
    286286        (when (symbolp refname)(fmakunbound refname)))
     287      #|
     288      ;; The print-function may indeed have become obsolete,
     289      ;; but we can't generally remove user-defined code
    287290      (let ((print-fn (sd-print-function sd)))
    288291        (when (symbolp print-fn) (fmakunbound print-fn)))
     292      |#
    289293      (let ((constructor (sd-constructor sd)))
    290294        (when (symbolp constructor) (fmakunbound constructor)))
Note: See TracChangeset for help on using the changeset viewer.