Changeset 13779


Ignore:
Timestamp:
01/15/12 19:45:21 (10 years ago)
Author:
rschlatte
Message:

slightly less dodgy long-form-method-combination initialization.

File:
1 edited

Legend:

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

    r13778 r13779  
    844844;;; yet.
    845845
    846 (defun make-long-method-combination (&key name documentation lambda-list
     846(defun %make-long-method-combination (&key name documentation lambda-list
    847847                                       method-group-specs args-lambda-list
    848848                                       generic-function-symbol function
    849849                                       arguments declarations forms)
    850850  (let ((instance (std-allocate-instance (find-class 'long-method-combination))))
    851     (when name (setf (std-slot-value instance 'sys::name) name))
    852     (when documentation
    853       (setf (std-slot-value instance 'documentation) documentation))
    854     (when lambda-list
    855         (setf (std-slot-value instance 'sys::lambda-list) lambda-list))
    856     (when method-group-specs
    857         (setf (std-slot-value instance 'method-group-specs) method-group-specs))
    858     (when args-lambda-list
    859         (setf (std-slot-value instance 'args-lambda-list) args-lambda-list))
    860     (when generic-function-symbol
    861         (setf (std-slot-value instance 'generic-function-symbol)
    862               generic-function-symbol))
    863     (when function
    864         (setf (std-slot-value instance 'function) function))
    865     (when arguments
    866         (setf (std-slot-value instance 'arguments) arguments))
    867     (when declarations
    868         (setf (std-slot-value instance 'declarations) declarations))
    869     (when forms
    870         (setf (std-slot-value instance 'forms) forms))
     851    (setf (std-slot-value instance 'sys::name) name)
     852    (setf (std-slot-value instance 'documentation) documentation)
     853    (setf (std-slot-value instance 'sys::lambda-list) lambda-list)
     854    (setf (std-slot-value instance 'method-group-specs) method-group-specs)
     855    (setf (std-slot-value instance 'args-lambda-list) args-lambda-list)
     856    (setf (std-slot-value instance 'generic-function-symbol)
     857          generic-function-symbol)
     858    (setf (std-slot-value instance 'function) function)
     859    (setf (std-slot-value instance 'arguments) arguments)
     860    (setf (std-slot-value instance 'declarations) declarations)
     861    (setf (std-slot-value instance 'forms) forms)
    871862    instance))
    872863
     
    961952(defun define-method-combination-type (name &rest initargs)
    962953    (setf (get name 'method-combination-object)
    963           (apply 'make-long-method-combination initargs)))
     954          (apply '%make-long-method-combination initargs)))
    964955
    965956(defun method-group-p (selecter qualifiers)
Note: See TracChangeset for help on using the changeset viewer.