Changeset 4751


Ignore:
Timestamp:
11/14/03 17:54:23 (18 years ago)
Author:
piso
Message:

RESOLVE is now exported from EXTENSIONS.

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r4625 r4751  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: format.lisp,v 1.3 2003-11-03 03:04:20 piso Exp $
     4;;; $Id: format.lisp,v 1.4 2003-11-14 17:53:56 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3434
    3535#+armedbear
    36 (sys::resolve 'write-string)
     36(ext:resolve 'write-string)
    3737
    3838#+armedbear
  • trunk/j/src/org/armedbear/lisp/jvm.lisp

    r4733 r4751  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.27 2003-11-14 01:42:22 piso Exp $
     4;;; $Id: jvm.lisp,v 1.28 2003-11-14 17:54:23 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    13701370    ;; FIXME This shouldn't go here! Do this in the constructor of the
    13711371    ;; compiled function!
    1372     (sys::resolve fun)
     1372    (resolve fun)
    13731373
    13741374    (cond
     
    21202120        (return-from jvm-compile (values name nil t))))
    21212121    (unless definition
    2122       (sys::resolve name)
     2122      (resolve name)
    21232123      (setf definition (fdefinition name))
    21242124      (when (compiled-function-p definition)
     
    21552155          (unless (or (special-operator-p sym) (macro-function sym))
    21562156            ;; Force autoload to be resolved.
    2157             (sys::resolve sym)
     2157            (resolve sym)
    21582158            (let ((f (fdefinition sym)))
    21592159              (unless (compiled-function-p f)
Note: See TracChangeset for help on using the changeset viewer.