Changeset 4701


Ignore:
Timestamp:
11/11/03 19:56:31 (18 years ago)
Author:
piso
Message:

precompiler.lisp

File:
1 edited

Legend:

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

    r4670 r4701  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: boot.lisp,v 1.125 2003-11-07 19:15:37 piso Exp $
     4;;; $Id: boot.lisp,v 1.126 2003-11-11 19:56:31 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    1919
    2020(sys::%in-package "COMMON-LISP")
     21
     22(setq sys::*autoload-verbose* t)
     23(setq *load-verbose* t)
    2124
    2225(defmacro in-package (name)
     
    102105(set-dispatch-macro-character #\# #\- #'read-conditional)
    103106
     107(make-package "JVM" :use '("COMMON-LISP" "EXTENSIONS"))
     108(defvar jvm::*auto-compile* nil)
     109(export 'jvm::*auto-compile* "JVM")
     110
     111(defun compile (name &optional definition)
     112  (values (if name name definition) nil nil))
     113
    104114(sys::%load "macros.lisp")
    105115(sys::%load "fixme.lisp")
    106116(sys::%load "destructuring-bind.lisp")
    107117(sys::%load "arrays.lisp")
    108 (sys::%load "compiler.lisp")
     118(sys::%load "compiler-macro.lisp")
     119(sys::%load "precompiler.lisp")
    109120(sys::%load "list.lisp")
    110121(sys::%load "sequences.lisp")
     
    112123(sys::%load "defpackage.lisp")
    113124(sys::%load "define-modify-macro.lisp")
    114 
    115 (defpackage "JVM" (:use "COMMON-LISP" "EXTENSIONS"))
    116 
    117 (defvar jvm::*auto-compile* nil)
    118 
    119 (export 'jvm::*auto-compile* "JVM")
    120125
    121126;;; PROVIDE, REQUIRE (from SBCL)
Note: See TracChangeset for help on using the changeset viewer.