Changeset 5879


Ignore:
Timestamp:
02/19/04 18:16:44 (17 years ago)
Author:
piso
Message:

COMPILE-CONSTANT: support hash tables.

File:
1 edited

Legend:

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

    r5878 r5879  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.73 2004-02-19 17:39:50 piso Exp $
     4;;; $Id: jvm.lisp,v 1.74 2004-02-19 18:16:44 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    ((or (classp form) (typep form 'generic-function))
     1312   ((or (classp form) (hash-table-p form) (typep form 'generic-function))
    13131313    (let ((g (declare-object form)))
    13141314      (emit 'getstatic
Note: See TracChangeset for help on using the changeset viewer.