Changeset 4697


Ignore:
Timestamp:
11/11/03 19:20:54 (18 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r4682 r4697  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.21 2003-11-08 20:17:34 piso Exp $
     4;;; $Id: jvm.lisp,v 1.22 2003-11-11 19:20:54 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    1717;;; along with this program; if not, write to the Free Software
    1818;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
    19 
    20 (require 'transform)
    2119
    2220(in-package "JVM")
     
    13501348     nil)))
    13511349
    1352 (defconstant +cl-package+ (find-package "COMMON-LISP"))
    1353 (defconstant +sys-package+ (find-package "SYSTEM"))
    1354 
    1355 (defconstant +known-packages+ (list +cl-package+ +sys-package+))
     1350(defconstant +known-packages+ (list (find-package "COMMON-LISP")
     1351                                    (find-package "SYSTEM")
     1352                                    (find-package "EXTENSIONS")))
    13561353
    13571354(defun compile-function-call (fun args &optional for-effect)
     
    17271724
    17281725(defun compile-setq (form)
     1726  (unless (= (length form) 3)
     1727    (error "COMPILE-SETQ too many args for SETQ"))
    17291728  (let* ((rest (cdr form))
    1730          (len (length rest))
    17311729         (sym (car rest))
    17321730         (index (position sym *locals* :from-end t)))
    1733     (unless (= len 2)
    1734       (error "COMPILE-SETQ too many args for SETQ"))
    17351731    (when index
    17361732      (compile-form (cadr rest))
     
    19701966  (unless (eq (car form) 'LAMBDA)
    19711967    (return-from compile-defun nil))
    1972   (setq form (transform form))
     1968  (setf form (precompile-form form t))
    19731969  (let* ((*defun-name* name)
    19741970         (*declared-symbols* (make-hash-table))
     
    22092205    (if (eql speed 3)
    22102206        (progn
    2211           (c::%compile name definition)
     2207          (precompile name definition)
    22122208          (jvm-compile name definition))
    22132209        (progn
    2214           (c::%compile name definition)
     2210          (precompile name definition)
    22152211          ))))
    22162212
Note: See TracChangeset for help on using the changeset viewer.