Changeset 2326
- Timestamp:
- Aug 20, 2005, 7:38:37 PM (15 years ago)
- Location:
- trunk/ccl/level-1
- Files:
-
- 33 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ccl/level-1/l1-aprims.lisp
r2192 r2326 18 18 19 19 20 (in-package :ccl)20 (in-package "CCL") 21 21 22 22 -
trunk/ccl/level-1/l1-boot-1.lisp
r1728 r2326 15 15 ;;; http://opensource.franz.com/preamble.html 16 16 17 18 17 ;; L1-boot.lisp 19 18 19 (in-package "CCL") 20 20 21 21 (defparameter *gensym-counter* 0 "counter for generating unique GENSYM symbols") -
trunk/ccl/level-1/l1-boot-2.lisp
r2104 r2326 18 18 ;; Second part of l1-boot 19 19 20 20 (in-package "CCL") 21 21 22 22 (macrolet ((l1-load (name) -
trunk/ccl/level-1/l1-boot-3.lisp
r823 r2326 18 18 ;; Third part of l1-boot 19 19 20 (in-package "CCL") 20 21 21 22 (catch :toplevel -
trunk/ccl/level-1/l1-boot-lds.lisp
r2298 r2326 18 18 ; l1-boot-lds.lisp 19 19 20 (in-package :ccl)20 (in-package "CCL") 21 21 22 22 -
trunk/ccl/level-1/l1-callbacks.lisp
r2154 r2326 16 16 17 17 ;;; l1-callbacks.lisp 18 19 (in-package "CCL") 18 20 19 21 (defglobal *callback-lock* (make-lock)) -
trunk/ccl/level-1/l1-cl-package.lisp
r6 r2326 16 16 17 17 ; l1-cl-package.lisp 18 19 (in-package "CCL") 18 20 19 21 -
trunk/ccl/level-1/l1-clos-boot.lisp
r2265 r2326 21 21 22 22 23 (in-package :ccl)23 (in-package "CCL") 24 24 25 25 -
trunk/ccl/level-1/l1-clos.lisp
r2140 r2326 19 19 ;;; At this point in the load sequence, the handful of extant basic classes 20 20 ;;; exist only in skeletal form (without direct or effective slot-definitions.) 21 21 22 (in-package "CCL") 22 23 -
trunk/ccl/level-1/l1-dcode.lisp
r2267 r2326 16 16 17 17 18 (in-package :ccl)18 (in-package "CCL") 19 19 20 20 -
trunk/ccl/level-1/l1-error-signal.lisp
r1971 r2326 15 15 ;;; http://opensource.franz.com/preamble.html 16 16 17 18 19 20 17 (in-package "CCL") 21 18 22 19 (defun %kernel-restart (error-type &rest args) -
trunk/ccl/level-1/l1-events.lisp
r1478 r2326 15 15 ;;; http://opensource.franz.com/preamble.html 16 16 17 (in-package "CCL") 17 18 18 19 (defvar *inhibit-abort* nil) -
trunk/ccl/level-1/l1-files.lisp
r2274 r2326 17 17 18 18 ;; L1-files.lisp - Object oriented file stuff 19 20 (in-package "CCL") 19 21 20 22 (defconstant $paramErr -50) ; put this with the rest when we find the rest -
trunk/ccl/level-1/l1-format.lisp
r2143 r2326 15 15 ;;; http://opensource.franz.com/preamble.html 16 16 17 18 19 17 ;; L1-format.lisp 20 18 ; … … 23 21 ; incompletely implemented directives. 24 22 25 23 (in-package "CCL") 26 24 27 25 (eval-when (eval compile #-bccl load) ;Load-time as well so CCL can use it. -
trunk/ccl/level-1/l1-init.lisp
r1913 r2326 15 15 ;;; http://opensource.franz.com/preamble.html 16 16 17 17 (in-package "CCL") 18 18 19 19 (eval-when (:compile-toplevel :execute :load-toplevel) -
trunk/ccl/level-1/l1-io.lisp
r2316 r2326 16 16 17 17 ;; L1-io.lisp 18 19 (in-package "CCL") 18 20 19 21 (defun %new-ptr (size &optional clear-p) -
trunk/ccl/level-1/l1-numbers.lisp
r2236 r2326 15 15 ;;; http://opensource.franz.com/preamble.html 16 16 17 17 (in-package "CCL") 18 18 19 19 (eval-when (:compile-toplevel :execute) 20 20 (require "NUMBER-MACROS") 21 22 21 ) 23 24 25 22 26 23 (defun %parse-number-token (string &optional start end radix) -
trunk/ccl/level-1/l1-pathnames.lisp
r1665 r2326 22 22 ;ANSI CL logical pathnames 23 23 24 (in-package :ccl)24 (in-package "CCL") 25 25 26 26 (defloadvar *heap-image-name* -
trunk/ccl/level-1/l1-reader.lisp
r2319 r2326 15 15 ;;; http://opensource.franz.com/preamble.html 16 16 17 18 17 ;;; READ and related functions. 19 18 19 (in-package "CCL") 20 20 21 21 (eval-when (:compile-toplevel :execute) -
trunk/ccl/level-1/l1-sort.lisp
r6 r2326 16 16 17 17 ;;; Low-level list sorting routines. Used by CLOS and SORT. 18 19 (in-package "CCL") 18 20 19 21 (eval-when (:compile-toplevel :execute) -
trunk/ccl/level-1/l1-streams.lisp
r2200 r2326 15 15 ;;; The LLGPL is also available online at 16 16 ;;; http://opensource.franz.com/preamble.html 17 18 (in-package "CCL") 17 19 18 20 (eval-when (:compile-toplevel) -
trunk/ccl/level-1/l1-symhash.lisp
r2080 r2326 15 15 ;;; http://opensource.franz.com/preamble.html 16 16 17 (in-package "CCL") 17 18 18 19 (declaim (special %all-packages%)) -
trunk/ccl/level-1/l1-sysio.lisp
r943 r2326 14 14 ;;; The LLGPL is also available online at 15 15 ;;; http://opensource.franz.com/preamble.html 16 17 (in-package "CCL") 16 18 17 19 (defstruct (file-ioblock (:include ioblock)) -
trunk/ccl/level-1/l1-typesys.lisp
r2102 r2326 15 15 ;;; http://opensource.franz.com/preamble.html 16 16 17 18 17 ;; This is a hacked-up version of the CMU CL type system. 19 18 19 (in-package "CCL") 20 20 21 21 -
trunk/ccl/level-1/l1-utils.lisp
r2068 r2326 15 15 ;;; http://opensource.franz.com/preamble.html 16 16 17 18 19 17 ; L1-utils.lisp 20 18 21 22 #+allow-in-package23 19 (in-package "CCL") 24 20 -
trunk/ccl/level-1/level-1.lisp
r1928 r2326 15 15 ;;; http://opensource.franz.com/preamble.html 16 16 17 18 17 ; Level-1.lisp 19 18 20 21 19 (in-package "CCL") 22 20 23 21 (macrolet ((l1-load (name) -
trunk/ccl/level-1/linux-files.lisp
r1958 r2326 14 14 ;;; The LLGPL is also available online at 15 15 ;;; http://opensource.franz.com/preamble.html 16 17 (in-package "CCL") 16 18 17 19 (eval-when (:compile-toplevel :execute) -
trunk/ccl/level-1/ppc-callback-support.lisp
r2227 r2326 19 19 ;;; Support for PPC callbacks 20 20 21 21 (in-package "CCL") 22 22 23 23 ;;; This is machine-dependent (it conses up a piece of "trampoline" code -
trunk/ccl/level-1/ppc-threads-utils.lisp
r1671 r2326 21 21 ; low-level support for PPC threads and stack-backtrace printing 22 22 23 (in-package :ccl)23 (in-package "CCL") 24 24 25 25 -
trunk/ccl/level-1/ppc-trap-support.lisp
r2299 r2326 18 18 ;;; and all the trxxx traps for type checks & arg count checks. 19 19 20 20 (in-package "CCL") 21 21 22 22 (eval-when (:compile-toplevel :execute) -
trunk/ccl/level-1/runtime.lisp
r1673 r2326 17 17 ;;; Load .pfsl files, create a "runtime" (compiler- & development-tools-less) 18 18 ;;; image. 19 20 (in-package "CCL") 19 21 20 22 (%fasload "./l1-pfsls/l1-cl-package.pfsl") -
trunk/ccl/level-1/sysutils.lisp
r2119 r2326 18 18 ;; sysutils.lisp - things which have outgrown l1-utils 19 19 20 (in-package :ccl)20 (in-package "CCL") 21 21 22 22 (eval-when (:execute :compile-toplevel) -
trunk/ccl/level-1/version.lisp
r2320 r2326 14 14 ;;; The LLGPL is also available online at 15 15 ;;; http://opensource.franz.com/preamble.html 16 17 (in-package "CCL") 16 18 17 19 (defparameter *openmcl-major-version* 0)
Note: See TracChangeset
for help on using the changeset viewer.