Changeset 12529
- Timestamp:
- 03/13/10 22:51:23 (14 years ago)
- Location:
- branches/metaclass/abcl/src/org/armedbear/lisp
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/metaclass/abcl/src/org/armedbear/lisp/Primitives.java
r12528 r12529 5604 5604 @Override 5605 5605 public LispObject execute(LispObject arg) { 5606 return arg instanceof LispClass ? T : NIL;5606 return (arg instanceof LispClass) ? T : arg.typep(Symbol.CLASS); 5607 5607 } 5608 5608 }; -
branches/metaclass/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
r12415 r12529 3403 3403 (CHAR= p2-test-char=) 3404 3404 (CHARACTERP p2-test-characterp) 3405 (CLASSP p2-test-classp)3406 3405 (CONSP p2-test-consp) 3407 3406 (CONSTANTP p2-test-constantp) … … 3543 3542 (defun p2-test-special-variable-p (form) 3544 3543 (p2-test-predicate form "isSpecialVariable")) 3545 3546 (defun p2-test-classp (form)3547 (p2-test-instanceof-predicate form +lisp-class-class+))3548 3544 3549 3545 (defun p2-test-symbolp (form) … … 4827 4823 (defun p2-characterp (form target representation) 4828 4824 (p2-instanceof-predicate form target representation +lisp-character-class+)) 4829 4830 (defun p2-classp (form target representation)4831 (p2-instanceof-predicate form target representation +lisp-class-class+))4832 4825 4833 4826 (defun p2-consp (form target representation) … … 8876 8869 (install-p2-handler 'char= 'p2-char=) 8877 8870 (install-p2-handler 'characterp 'p2-characterp) 8878 (install-p2-handler 'classp 'p2-classp)8879 8871 (install-p2-handler 'coerce-to-function 'p2-coerce-to-function) 8880 8872 (install-p2-handler 'cons 'p2-cons)
Note: See TracChangeset
for help on using the changeset viewer.