Changeset 10811


Ignore:
Timestamp:
Sep 20, 2008, 8:23:23 PM (11 years ago)
Author:
gz
Message:

Propagate r10799 to trunk

Location:
trunk/source
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/nfasload.lisp

    r10483 r10811  
    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*)
  • trunk/source/level-1/l1-symhash.lisp

    r10784 r10811  
    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.