Changeset 5877


Ignore:
Timestamp:
02/19/04 15:38:59 (17 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/jvm.lisp

    r5864 r5877  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.71 2004-02-18 14:00:29 piso Exp $
     4;;; $Id: jvm.lisp,v 1.72 2004-02-19 15:38:59 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    13101310              "Lorg/armedbear/lisp/LispObject;")
    13111311        (emit-store-value))))
    1312    ((classp form)
     1312   ((or (classp form) (typep form 'generic-function))
    13131313    (let ((g (declare-object form)))
    13141314      (emit 'getstatic
     
    13461346(setf (gethash 'CDDR            unary-operators) "cddr")
    13471347(setf (gethash 'CDR             unary-operators) "cdr")
     1348(setf (gethash 'CHARACTERP      unary-operators) "CHARACTERP")
    13481349(setf (gethash 'COMPLEXP        unary-operators) "COMPLEXP")
    13491350(setf (gethash 'CONSTANTP       unary-operators) "CONSTANTP")
     
    16311632           (return-from compile-test 'ifne))
    16321633         (let ((s (cdr (assq (car form)
    1633                              '((EVENP     . "evenp")
    1634                                (FLOATP    . "floatp")
    1635                                (INTEGERP  . "integerp")
    1636                                (MINUSP    . "minusp")
    1637                                (LISTP     . "listp")
    1638                                (NUMBERP   . "numberp")
    1639                                (ODDP      . "oddp")
    1640                                (PLUSP     . "plusp")
    1641                                (RATIONALP . "rationalp")
    1642                                (REALP     . "realp")
    1643                                (VECTORP   . "vectorp")
    1644                                (ZEROP     . "zerop")
    1645                                )))))
     1634                             '((CHARACTERP . "characterp")
     1635                               (EVENP      . "evenp")
     1636                               (FLOATP     . "floatp")
     1637                               (INTEGERP   . "integerp")
     1638                               (LISTP      . "listp")
     1639                               (MINUSP     . "minusp")
     1640                               (NUMBERP    . "numberp")
     1641                               (ODDP       . "oddp")
     1642                               (PLUSP      . "plusp")
     1643                               (RATIONALP  . "rationalp")
     1644                               (REALP      . "realp")
     1645                               (STRINGP    . "stringp")
     1646                               (VECTORP    . "vectorp")
     1647                               (ZEROP      . "zerop"))))))
    16461648           (when s
    16471649             (compile-form (second form))
     
    16701672                               (EQL    . "eql")
    16711673                               (EQUAL  . "equal")
    1672                                (EQUALP . "equalp")
    1673                                )))))
     1674                               (EQUALP . "equalp"))))))
    16741675           (when s
    16751676             (compile-form (second form))
Note: See TracChangeset for help on using the changeset viewer.