Changeset 4524


Ignore:
Timestamp:
10/24/03 16:35:42 (19 years ago)
Author:
piso
Message:

JVM-COMPILE: don't bind *PACKAGE* to NIL when compiling a function whose name
is an uninterned symbol (FMAKUNBOUND.2).

File:
1 edited

Legend:

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

    r4513 r4524  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.1 2003-10-23 13:12:24 piso Exp $
     4;;; $Id: jvm.lisp,v 1.2 2003-10-24 16:35:42 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    19101910        (return-from jvm-compile (values name nil nil))))
    19111911    (handler-case
    1912         (let* ((*package* (if name (symbol-package name) *package*))
     1912        (let* ((*package* (if (and name (symbol-package name))
     1913                              (symbol-package name)
     1914                              *package*))
    19131915               (expr (get-lambda-to-compile definition))
    19141916               (compiled-definition (compile-defun name expr)))
Note: See TracChangeset for help on using the changeset viewer.