X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-extensions.lisp;h=e84e46f93d9f18351c53f2bd87cb865d873f37e4;hb=993d5b779638756473181dda8d928d33038d4cc3;hp=812b35d0e2fe2a5f2e88db188063feeb3ec39687;hpb=0c58c96998aab7f3179b74ef7462190e59563e2e;p=sbcl.git

diff --git a/src/code/early-extensions.lisp b/src/code/early-extensions.lisp
index 812b35d..e84e46f 100644
--- a/src/code/early-extensions.lisp
+++ b/src/code/early-extensions.lisp
@@ -301,17 +301,6 @@
 
 ;;;; miscellany
 
-;;; FIXME: What is this used for that SYMBOLICATE couldn't be used for instead?
-;;; If nothing, replace it.
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (defun concat-pnames (name1 name2)
-    (declare (symbol name1 name2))
-    (if name1
-	(intern (concatenate 'simple-string
-			     (symbol-name name1)
-			     (symbol-name name2)))
-	name2)))
-
 ;;; Is NAME a legal function name?
 (defun legal-function-name-p (name)
   (or (symbolp name)