Changeset 10799


Ignore:
Timestamp:
Sep 17, 2008, 10:28:53 PM (11 years ago)
Author:
gz
Message:

In make-package: pass the right name to register-package-ref so e.g. (make-package :cl-test) works. Make register-package-ref typecheck just to be sure.

Location:
branches/working-0711/ccl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-0/nfasload.lisp

    r10484 r10799  
    251251
    252252(defun register-package-ref (name)
     253  (unless (typep name 'string)
     254    (report-bad-arg name 'string))
    253255  (let* ((ref
    254256          (or (gethash name *package-refs*)
  • branches/working-0711/ccl/level-1/l1-symhash.lisp

    r10783 r10799  
    189189  (setq internal-size (require-type internal-size 'fixnum)
    190190        external-size (require-type external-size 'fixnum))
    191   (let ((pkg (gvector :package
    192                       (%new-package-hashtable internal-size)
    193                       (%new-package-hashtable external-size)
    194                       nil
    195                       nil
    196                       (list (new-package-name name))
    197                       nil
    198                       (make-read-write-lock)
    199                       nil)))
    200     (let* ((ref (register-package-ref name)))
     191  (let* ((pkg-name (new-package-name name))
     192         (pkg (gvector :package
     193                       (%new-package-hashtable internal-size)
     194                       (%new-package-hashtable external-size)
     195                       nil
     196                       nil
     197                       (list pkg-name)
     198                       nil
     199                       (make-read-write-lock)
     200                       nil)))
     201    (let* ((ref (register-package-ref pkg-name)))
    201202      (setf (package-ref.pkg ref) pkg))
    202203    (use-package use pkg)
Note: See TracChangeset for help on using the changeset viewer.