Changeset 10241


Ignore:
Timestamp:
10/27/05 17:30:40 (16 years ago)
Author:
piso
Message:

GROVEL-JAVA-DEFINITIONS: look in "JAVA" package too.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/compile-system.lisp

    r9943 r10241  
    22;;;
    33;;; Copyright (C) 2004-2005 Peter Graves
    4 ;;; $Id: compile-system.lisp,v 1.62 2005-09-08 16:08:14 piso Exp $
     4;;; $Id: compile-system.lisp,v 1.63 2005-10-27 17:30:40 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    4545                 (let* ((name (string (read-from-string (subseq text (+ position 3)))))
    4646                        (symbol (or (find-symbol name system-package) ; uses CL and EXT
    47                                     (find-symbol name (find-package "MOP")))))
     47                                    (find-symbol name (find-package "MOP"))
     48                                    (find-symbol name (find-package "JAVA")))))
    4849                   (when symbol
    4950                     ;; Force the symbol's package prefix to be written out
Note: See TracChangeset for help on using the changeset viewer.