Changeset 8794


Ignore:
Timestamp:
03/19/05 14:39:04 (16 years ago)
Author:
piso
Message:

PRELOAD-PACKAGE

File:
1 edited

Legend:

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

    r8769 r8794  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: boot.lisp,v 1.207 2005-03-14 17:47:33 piso Exp $
     4;;; $Id: boot.lisp,v 1.208 2005-03-19 14:39:04 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    1818;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
    1919
    20 (sys::%in-package "SYSTEM")
     20(sys::%in-package #:system)
    2121
    2222(setq *autoload-verbose* nil)
     
    2424
    2525(defmacro in-package (name)
    26   (list 'sys::%in-package (string name)))
     26  (list '%in-package (string name)))
    2727
    2828(defmacro lambda (lambda-list &rest body)
     
    5353;; EVAL is redefined in precompiler.lisp.
    5454(defun eval (form)
    55   (sys::%eval form))
     55  (%eval form))
    5656
    5757(defun terpri (&optional output-stream)
    58   (sys::%terpri output-stream))
     58  (%terpri output-stream))
    5959
    6060(defun fresh-line (&optional output-stream)
    61   (sys::%fresh-line output-stream))
     61  (%fresh-line output-stream))
    6262
    6363(defun write-char (character &optional output-stream)
    64   (sys::%write-char character output-stream))
     64  (%write-char character output-stream))
    6565
    6666(defun simple-format (destination control-string &rest args)
     
    327327(load-system-file "defsetf")
    328328
    329 (unless (sys::featurep :j)
     329(defun preload-package (pkg)
     330  (%format t "Preloading ~S~%" (find-package pkg))
     331  (dolist (sym (package-symbols pkg))
     332    (when (autoloadp sym)
     333      (resolve sym))))
     334
     335(unless (featurep :j)
    330336  (load-system-file "top-level")
    331337  (%format t "Startup completed in ~A seconds.~%" (float (/ (ext:uptime) 1000))))
Note: See TracChangeset for help on using the changeset viewer.