Changeset 14003


Ignore:
Timestamp:
07/13/12 14:07:27 (8 years ago)
Author:
rschlatte
Message:

Eliminate once-only-used function

File:
1 edited

Legend:

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

    r13997 r14003  
    870870  (maybe-finalize-class-subtree class)
    871871  (values))
    872 
    873 (defun canonical-slot-name (canonical-slot)
    874   (getf canonical-slot :name))
    875872
    876873(defvar *extensible-built-in-classes*
     
    28802877
    28812878(defun check-duplicate-slots (slots)
    2882   (dolist (s1 slots)
    2883     (let ((name1 (canonical-slot-name s1)))
    2884       (dolist (s2 (cdr (memq s1 slots)))
    2885         (when (eq name1 (canonical-slot-name s2))
    2886           (error 'program-error "Duplicate slot ~S" name1))))))
     2879  (flet ((canonical-slot-name (canonical-slot)
     2880           (getf canonical-slot :name)))
     2881    (dolist (s1 slots)
     2882      (let ((name1 (canonical-slot-name s1)))
     2883        (dolist (s2 (cdr (memq s1 slots)))
     2884          (when (eq name1 (canonical-slot-name s2))
     2885            (error 'program-error "Duplicate slot ~S" name1)))))))
    28872886
    28882887(defun check-duplicate-default-initargs (initargs)
Note: See TracChangeset for help on using the changeset viewer.