Changeset 5864


Ignore:
Timestamp:
02/18/04 14:00:29 (17 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r5862 r5864  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.70 2004-02-17 15:24:50 piso Exp $
     4;;; $Id: jvm.lisp,v 1.71 2004-02-18 14:00:29 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    24992499      (multiple-value-bind (lambda-expression environment)
    25002500        (function-lambda-expression definition-designator)
    2501         (when environment
    2502           (warn "Function defined in non-null lexical environment."))
    25032501  (unless lambda-expression
    25042502    (error :format-control "Can't find a definition for ~S."
     
    26432641          (jvm-compile name definition))
    26442642        (progn
    2645           (precompile name definition)
    2646           ))))
     2643          (precompile name definition)))))
    26472644
    26482645(defmacro defun (name lambda-list &rest body &environment environment)
Note: See TracChangeset for help on using the changeset viewer.