Index: /branches/working-0711/ccl/library/core-files.lisp
===================================================================
--- /branches/working-0711/ccl/library/core-files.lisp	(revision 13548)
+++ /branches/working-0711/ccl/library/core-files.lisp	(revision 13549)
@@ -31,10 +31,9 @@
 
 (export '(open-core close-core
-          core-heap-utilization map-core-areas map-core-region map-core-pointers
+          core-heap-utilization map-core-areas
           core-q core-l core-w core-b
           core-consp core-symbolp core-functionp core-listp core-nullp core-uvector-p
           core-uvtype core-uvtypep core-uvref core-uvsize
           core-car core-cdr core-object-typecode-type
-          core-istruct-type core-struct-type core-instance-type core-function-type
           core-object-type-key  core-type-string
           copy-from-core core-list
@@ -48,5 +47,5 @@
           core-instance-class
           core-instance-p
-          core-string-equal
+          core-string=
           core-all-processes core-process-name
           core-find-process-for-id
@@ -953,10 +952,8 @@
 (defun core-symbol-pointers ()
   (or (core-info-symbol-ptrs (current-core))
-      (let ((vector (make-array 1000 :adjustable t :fill-pointer 0))
-            (keys (core-keyword-package)))
+      (let ((vector (make-array 1000 :adjustable t :fill-pointer 0)))
         (map-core-areas (lambda (obj)
                           (when (core-symbolp obj)
-                            (unless (eq (core-symbol-package obj) keys)
-                              (vector-push-extend obj vector)))))
+                            (vector-push-extend obj vector))))
         (setf (core-info-symbol-ptrs (current-core)) vector))))
 
@@ -965,5 +962,5 @@
 
 
-(defun core-string-equal (ptr string &aux (len (length string)))
+(defun core-string= (ptr string &aux (len (length string)))
   (assert (core-uvtypep ptr :simple-string))
   (when (eq (core-uvsize ptr) len)
@@ -972,4 +969,9 @@
 
 (defun core-find-package (name &key error)
+  (when (integerp name)
+    (when (core-symbolp name)
+      (setq name (core-q name target::symbol.pname)))
+    (when (core-uvtypep name :simple-string)
+      (setq name (copy-from-core name :depth 1))))
   (setq name (string name))
   (or (loop for list-ptr = (core-all-packages-ptr) then (core-cdr list-ptr)
@@ -991,16 +993,25 @@
   (copy-from-core (core-car (core-uvref pkg-ptr pkg.names)) :depth 1))
 
-(defun core-find-symbol (name &optional (package (symbol-package name)))
-  ;; Unlike the real cl:find-symbol, this doesn't look for inherited symbols,
+(defun core-find-symbol (name &optional package)
+  ;; Unlike cl:find-symbol, this doesn't look for inherited symbols,
   ;; you have to get the package right.
+  (when (integerp name)
+    (when (core-symbolp name)
+      (when (null package)
+        (setq package (core-symbol-package name)))
+      (setq name (core-q name target::symbol.pname)))
+    (when (core-uvtypep name :simple-string)
+      (setq name (copy-from-core name :depth 1))))
+  (when (and (null package) (non-nil-symbolp name))
+    (setq package (symbol-package name)))
+  (when (null package) (error "Package is required"))
   (let* ((symbol-name (string name))
          (name-len (length symbol-name))
-         (pkg-ptr (if (integerp package)
+         (pkg-ptr (if (and (integerp package) (core-uvtypep package :package))
                     package
                     (core-find-package (if (packagep package)
                                          (package-name package)
-                                         (string package))
+                                         package)
                                        :error t))))
-    (assert (core-uvtypep pkg-ptr :package))
     (multiple-value-bind (primary secondary) (hash-pname symbol-name name-len)
       (flet ((findsym (htab-ptr)