Index: compiler/optimizers.lisp
===================================================================
RCS file: /usr/local/tmpcvs/ccl-0.14-dev/ccl/compiler/optimizers.lisp,v
retrieving revision 1.15
diff -u -u -r1.15 optimizers.lisp
--- compiler/optimizers.lisp	8 Jun 2005 00:24:11 -0000	1.15
+++ compiler/optimizers.lisp	10 Jun 2005 18:57:29 -0000
@@ -1481,6 +1481,7 @@
   `(eql (typecode ,n) ,(target-arch-case (:ppc32 ppc32::subtag-function)
                                          (:ppc64 ppc64::subtag-function))))
 
+#+broken?
 (define-compiler-macro symbolp (s)
   (target-arch-case
    (:ppc32 (let* ((sym (gensym)))