Ignore:
Timestamp:
Jan 4, 2010, 4:43:41 PM (10 years ago)
Author:
gz
Message:

defstruct fixes from trunk (r13344/r13358)

Location:
branches/working-0711/ccl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl

  • branches/working-0711/ccl/lib/defstruct.lisp

    r13070 r13363  
    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.