diff --git a/macros.lisp b/macros.lisp
index 7a12da2f693a1c32516051f11e0ab11c13239334..632742e939a7c120a1ea1c4c9f9edd0b1e1d0c22 100644
--- a/macros.lisp
+++ b/macros.lisp
@@ -33,10 +33,12 @@
       (intern (symbol-name x) package)
       (error "~A isn't a keyword" x)))
 
+#| ; a better(?) version is in fare-utils/base/parse-cl-syntax.lisp
 (defun identifierp (x)
   (and (symbolp x)
        (not #+sbcl (sb-c::constantp x)
 	    #-sbcl (or (keywordp x) (typep x 'boolean)))))
+|#
 
 (defun decode-optional-spec (spec)
   (labels ((err () (error "invalid optional argument specification ~W" spec))