[Bug-openmcl] ccl::hash-pname problem with fill-pointers?

[bryan o'connor]

> looks like we can isolate it to three functions --

make that four -- also needed to update ccl::new-package-name.

	...bryan


-------------- next part --------------
Index: level-1/l1-symhash.lisp
===================================================================
RCS file: /usr/local/tmpcvs/ccl-0.14-dev/ccl/level-1/l1-symhash.lisp,v
retrieving revision 1.1.1.1
diff -c -r1.1.1.1 l1-symhash.lisp
*** level-1/l1-symhash.lisp	19 Oct 2003 08:57:10 -0000	1.1.1.1
--- level-1/l1-symhash.lisp	9 Dec 2004 00:29:59 -0000
***************
*** 196,202 ****
  
  (defun new-package-name (name &optional package)
    (do* ((prompt "Enter package name to use instead of ~S ."))
!        ((let* ((found (find-package (setq name (string name)))))
            (or (not found)
                (eq package found)))
          name)
--- 196,202 ----
  
  (defun new-package-name (name &optional package)
    (do* ((prompt "Enter package name to use instead of ~S ."))
!        ((let* ((found (find-package (setq name (ensure-simple-string (string name))))))
            (or (not found)
                (eq package found)))
          name)
-------------- next part --------------