Changeset 10799

Timestamp:

Sep 17, 2008, 10:28:53 PM (12 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:

• level-0/nfasload.lisp (modified) (1 diff)
• level-1/l1-symhash.lisp (modified) (1 diff)

branches/working-0711/ccl/level-0/nfasload.lisp

@@ -251 +251 @@
 
 (defun register-package-ref (name)
+  (unless (typep name 'string)
+    (report-bad-arg name 'string))
   (let* ((ref
           (or (gethash name *package-refs*)

branches/working-0711/ccl/level-1/l1-symhash.lisp

@@ -189 +189 @@
   (setq internal-size (require-type internal-size 'fixnum)
         external-size (require-type external-size 'fixnum))
-  (let ((pkg (gvector :package 
-                      (%new-package-hashtable internal-size)
-                      (%new-package-hashtable external-size)
-                      nil
-                      nil
-                      (list (new-package-name name))
-                      nil
-                      (make-read-write-lock)
-                      nil)))
-    (let* ((ref (register-package-ref name)))
+  (let* ((pkg-name (new-package-name name))
+         (pkg (gvector :package 
+                       (%new-package-hashtable internal-size)
+                       (%new-package-hashtable external-size)
+                       nil
+                       nil
+                       (list pkg-name)
+                       nil
+                       (make-read-write-lock)
+                       nil)))
+    (let* ((ref (register-package-ref pkg-name)))
       (setf (package-ref.pkg ref) pkg))
     (use-package use pkg)