Changeset 1937


Ignore:
Timestamp:
Jul 5, 2005, 10:19:14 AM (14 years ago)
Author:
gb
Message:

Add (IN-PACKAGE "CCL").

Location:
trunk/ccl/level-0
Files:
15 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-0/l0-aprims.lisp

    r1596 r1937  
    1616
    1717
     18(in-package "CCL")
    1819
    1920; l0-aprims.lisp
     
    5253
    5354(defparameter %all-packages-lock% nil)
    54 (setq %all-packages-lock% (make-read-write-lock))
    5555
    5656
  • trunk/ccl/level-0/l0-array.lisp

    r1882 r1937  
    1515;;;   http://opensource.franz.com/preamble.html
    1616
    17 #+allow-in-package
    1817(in-package "CCL")
    1918
  • trunk/ccl/level-0/l0-complex.lisp

    r581 r1937  
    1515;;;   http://opensource.franz.com/preamble.html
    1616
     17(in-package "CCL")
     18
    1719(eval-when (:compile-toplevel)
    1820  (require "NUMBER-MACROS"))
     
    2931        (t (complex (coerce num type)))))
    3032
    31 ; end of l0-complex.lisp
     33;;; end of l0-complex.lisp
  • trunk/ccl/level-0/l0-def.lisp

    r1596 r1937  
    1515;;;   http://opensource.franz.com/preamble.html
    1616
    17 
    18 
    19 ; primitives that manipulate function & variable definitions.
     17(in-package "CCL")
     18
     19;;; primitives that manipulate function & variable definitions.
    2020
    2121
     
    5656  name)
    5757
    58 ; redefined in sysutils.
     58;;; redefined in sysutils.
    5959(%fhave 'fmakunbound #'bootstrapping-fmakunbound)
    6060
     
    155155    (not (eq old unbound))))
    156156
    157 ; It's guaranteed that lfun-bits is a fixnum.  Might be a 30-bit fixnum ...
     157;;; It's guaranteed that lfun-bits is a fixnum.  Might be a 30-bit fixnum ...
    158158(defun lfun-bits (function &optional new)
    159159  (unless (functionp function)
     
    245245  (%global-macro-function form))
    246246
    247 ; end of l0-def.lisp
     247;;; end of l0-def.lisp
  • trunk/ccl/level-0/l0-error.lisp

    r1146 r1937  
    1313;;;   The LLGPL is also available online at
    1414;;;   http://opensource.franz.com/preamble.html
     15
     16(in-package "CCL")
     17
    1518(defparameter *error-format-strings*
    1619  '((1 . "Unbound variable: ~S .")
  • trunk/ccl/level-0/l0-float.lisp

    r1900 r1937  
    1717;;; level-0;l0-float.lisp
    1818
     19(in-package "CCL")
     20
    1921(eval-when (:compile-toplevel :execute)
    2022  (require "NUMBER-MACROS")
     
    2426;;; used by float reader
    2527(defun make-float-from-fixnums (hi lo exp sign &optional result)
    26   ;(require-null-or-double-float-sym result)
    27   ; maybe nuke all these require-types?
    28   ;(setq hi (require-type hi 'fixnum))
    29   ;(setq lo (require-type lo 'fixnum))
    30   ;(setq exp (require-type exp 'fixnum))
    31   ;(setq sign (require-type sign 'fixnum))
     28  ;;(require-null-or-double-float-sym result)
     29  ;; maybe nuke all these require-types?
     30  ;;(setq hi (require-type hi 'fixnum))
     31  ;;(setq lo (require-type lo 'fixnum))
     32  ;;(setq exp (require-type exp 'fixnum))
     33  ;;(setq sign (require-type sign 'fixnum))
    3234  (let ((the-float (or result (%make-dfloat))))
    3335    (%make-float-from-fixnums the-float hi lo exp sign)
  • trunk/ccl/level-0/l0-hash.lisp

    r1901 r1937  
    1515;;;   http://opensource.franz.com/preamble.html
    1616
    17 
     17(in-package "CCL")
    1818
    1919;;;;;;;;;;;;;
  • trunk/ccl/level-0/l0-init.lisp

    r1723 r1937  
    1414;;;   The LLGPL is also available online at
    1515;;;   http://opensource.franz.com/preamble.html
     16
     17(in-package "CCL")
    1618
    1719(defconstant array-total-size-limit
  • trunk/ccl/level-0/l0-int.lisp

    r1754 r1937  
    1414;;;   The LLGPL is also available online at
    1515;;;   http://opensource.franz.com/preamble.html
    16 #+allow-in-package
     16
    1717(in-package "CCL")
    1818
  • trunk/ccl/level-0/l0-io.lisp

    r1546 r1937  
    1515;;;   http://opensource.franz.com/preamble.html
    1616
     17(in-package "CCL")
    1718
    1819(eval-when (:compile-toplevel)
  • trunk/ccl/level-0/l0-misc.lisp

    r1885 r1937  
    1515;;;   http://opensource.franz.com/preamble.html
    1616
    17 
     17(in-package "CCL")
    1818
    1919; Miscellany.
  • trunk/ccl/level-0/l0-numbers.lisp

    r1862 r1937  
    1717;;;
    1818;;; level-0;l0-numbers.lisp
     19
     20(in-package "CCL")
    1921
    2022(eval-when (:compile-toplevel :execute)
  • trunk/ccl/level-0/l0-pred.lisp

    r1757 r1937  
    1515;;;   http://opensource.franz.com/preamble.html
    1616
     17(in-package "CCL")
    1718
    1819;; Non-portable type-predicates & such.
  • trunk/ccl/level-0/l0-symbol.lisp

    r1628 r1937  
    1515;;;   http://opensource.franz.com/preamble.html
    1616
    17 ; No error checking, no interrupts, no protect_caller, no nuthin.
    18 ; No error, no cons.  No problem.
     17(in-package "CCL")
     18
     19;;; No error checking, no interrupts, no protect_caller, no nuthin.
     20;;; No error, no cons.  No problem.
    1921(defun %progvrestore (saved)
    2022  (declare (optimize (speed 3) (safety 0)))
     
    2224    (%set-sym-value (car pair) (cdr pair))))
    2325
    24 ;; Check that something that's supposed to be a proper list of
    25 ;; symbols is; error otherwise.
    26 ;; This is called only by the compiler output of a PROGV form.
    27 ;; It checks for the maximum length that the progvsave subprim
    28 ;; can handle.
     26;;; Check that something that's supposed to be a proper list of
     27;;; symbols is; error otherwise.
     28;;; This is called only by the compiler output of a PROGV form.
     29;;; It checks for the maximum length that the progvsave subprim
     30;;; can handle.
    2931(defun svar-check-symbol-list (l &optional (max-length
    30                                         (floor (- 4096 20) (* 4 3))
     32                                        (floor (- 4096 20) (* target::node-size 3))
    3133                                       ))
    3234  (let ((len (list-length l)))
     
    4345
    4446(defun check-symbol-list (l &optional (max-length
    45                                         (floor (- 4096 20) (* 4 3))
     47                                        (floor (- 4096 20) (* target::node-size 3))
    4648                                       ))
    4749  (let ((len (list-length l)))
     
    105107    value))
    106108
    107 ; This is how things have traditionally been defined: if %sym_vbit_typeppred
    108 ; is set in the symbol's %SYMBOL-BITS, it's assumed that it's safe to
    109 ; take the %CADR of the %SYMBOL-PACKAGE-PLIST.
     109;;; This is how things have traditionally been defined: if %sym_vbit_typeppred
     110;;; is set in the symbol's %SYMBOL-BITS, it's assumed that it's safe to
     111;;; take the %CADR of the %SYMBOL-PACKAGE-PLIST.
    110112(defun get-type-predicate (name)
    111113  (let* ((bits (%symbol-bits name)))
     
    146148       (%ilogbitp $sym_vbit_const (%symbol-bits sym))))
    147149
    148 ; This leaves the SPECIAL and INDIRECT bits alone, clears the others.
     150;;; This leaves the SPECIAL and INDIRECT bits alone, clears the others.
    149151(defun makunbound (sym)
    150152  "Make SYMBOL unbound, removing any value it may currently have."
  • trunk/ccl/level-0/l0-utils.lisp

    r1629 r1937  
    2020
    2121
    22 #+allow-in-package
    2322(in-package "CCL")
    2423
     
    2827
    2928
    30 ; We MAY need a scheme for finding all of the areas in a lisp library.
     29;;; We MAY need a scheme for finding all of the areas in a lisp library.
    3130(defun %map-areas (function &optional (maxcode ppc::area-dynamic) (mincode ppc::area-readonly))
    3231  (declare (fixnum maxcode mincode))
Note: See TracChangeset for help on using the changeset viewer.