Ignore:
Timestamp:
07/21/12 14:02:32 (9 years ago)
Author:
rschlatte
Message:

fixes for (documentation x 'type) and (documentation x 'structure)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r14012 r14014  
    31773177
    31783178(defmethod documentation ((x structure-class) (doc-type (eql 't)))
    3179   (%documentation x doc-type))
     3179  (%documentation x t))
    31803180
    31813181(defmethod documentation ((x structure-class) (doc-type (eql 'type)))
    3182   (%documentation x doc-type))
     3182  (%documentation x t))
    31833183
    31843184(defmethod (setf documentation) (new-value (x structure-class) (doc-type (eql 't)))
    3185   (%set-documentation x doc-type new-value))
     3185  (%set-documentation x t new-value))
    31863186
    31873187(defmethod (setf documentation) (new-value (x structure-class) (doc-type (eql 'type)))
    3188   (%set-documentation x doc-type new-value))
     3188  (%set-documentation x t new-value))
    31893189
    31903190(defmethod documentation ((x standard-generic-function) (doc-type (eql 't)))
     
    32193219
    32203220(defmethod documentation ((x symbol) (doc-type (eql 'function)))
    3221   (%documentation x doc-type))
     3221  (%documentation x 'function))
     3222
     3223(defmethod documentation ((x symbol) (doc-type (eql 'type)))
     3224  (let ((class (find-class x nil)))
     3225    (if class
     3226        (documentation class t)
     3227        (%documentation x 'type))))
     3228
     3229(defmethod documentation ((x symbol) (doc-type (eql 'structure)))
     3230  (%documentation x 'structure))
     3231
     3232(defmethod (setf documentation) (new-value (x symbol) (doc-type (eql 'type)))
     3233  (let ((class (find-class x nil)))
     3234    (if class
     3235        (setf (documentation class t) new-value)
     3236        (%set-documentation x 'type new-value))))
     3237
     3238(defmethod (setf documentation) (new-value (x symbol)
     3239                                 (doc-type (eql 'structure)))
     3240  (%set-documentation x 'structure new-value))
    32223241
    32233242;;; Applicable methods
Note: See TracChangeset for help on using the changeset viewer.