Ignore:
Timestamp:
04/08/10 19:44:14 (12 years ago)
Author:
astalla
Message:

JAVA-CLASS metaclass reimplemented in Lisp.

File:
1 edited

Legend:

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

    r12578 r12583  
    579579  (getf canonical-slot :name))
    580580
    581 (defvar *extensible-built-in-classes* (list (find-class 'sequence)))
     581(defvar *extensible-built-in-classes* (list (find-class 'sequence) (find-class 'java:java-object)))
    582582
    583583(defun ensure-class (name &rest all-keys &key metaclass &allow-other-keys)
     
    972972  ((and (consp specializer)
    973973              (eq (car specializer) 'java:jclass))
    974          (let ((class-name (cadr specializer)))
    975            (when (and (consp class-name)
    976                       (eq (car class-name) 'quote))
    977              (setf class-name (cadr class-name)))
    978            (java::%find-java-class class-name)))
     974         (let ((jclass (eval specializer)))
     975     (java::ensure-java-class jclass)))
    979976        (t
    980977         (error "Unknown specializer: ~S" specializer))))
Note: See TracChangeset for help on using the changeset viewer.