Changeset 13087

Timestamp:

Oct 22, 2009, 2:36:55 PM (15 years ago)

Author:

gz

Message:

fix build (bootstrapping)

File:

• trunk/source/library/core-files.lisp (modified) (1 diff)

trunk/source/library/core-files.lisp

@@ -756 +756 @@
 
 (defun core-package-names (pkg-ptr)
-  (assert (core-uvtypep pkg-ptr 'package))
+  (assert (core-uvtypep pkg-ptr :package))
   (copy-from-core (core-uvref pkg-ptr pkg.names) :depth 2))
 
 (defun core-package-name (pkg-ptr)
-  (assert (core-uvtypep pkg-ptr 'package))  
+  (assert (core-uvtypep pkg-ptr :package))  
   (copy-from-core (core-car (core-uvref pkg-ptr pkg.names)) :depth 1))