Index: /branches/working-0711/ccl/compiler/optimizers.lisp
===================================================================
--- /branches/working-0711/ccl/compiler/optimizers.lisp	(revision 9723)
+++ /branches/working-0711/ccl/compiler/optimizers.lisp	(revision 9724)
@@ -564,7 +564,4 @@
     (symbol t)
     (string t)))
-
-(defun package-designator-p (object)
-  (or (string-designator-p object) (packagep object)))
 
 (define-compiler-macro ldb (&whole call &environment env byte integer)