Changeset 9724

Timestamp:

Jun 10, 2008, 5:51:13 AM (16 years ago)

Author:

marco baringer

Message:

Remove unused function package-designator-p

File:

• branches/working-0711/ccl/compiler/optimizers.lisp (modified) (1 diff)

branches/working-0711/ccl/compiler/optimizers.lisp

@@ -564 +564 @@
     (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)