From c714dc74cab82e364efedfa588f21b5f3406a64c Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 23 Jul 2001 07:55:38 +0000
Subject: [PATCH] Optimizer for SCHAR + SYMBOL-NAME makes no longer sense.

---
 src/cmp/cmpfun.lsp | 10 ----------
 1 file changed, 10 deletions(-)

diff --git a/src/cmp/cmpfun.lsp b/src/cmp/cmpfun.lsp
index 6df5a1d4c..a98b2ee22 100644
--- a/src/cmp/cmpfun.lsp
+++ b/src/cmp/cmpfun.lsp
@@ -546,15 +546,6 @@
 	       (t ,(when extend
 		     `(vector-push-extend .val .vec ,@(cddr args))))))))))
 
-;----------------------------------------------------------------------
-
-(defun co1schar (args)
-   (and (listp (car args)) (not *safe-compile*)
-	(cdr args)
-	(eq (caar args) 'SYMBOL-NAME)
-	(c1expr `(aref (the string ,(second (car args)))
-		  ,(second args)))))
-
 ;;; ----------------------------------------------------------------------
 
 (setf (get 'princ 'C1) 'c1princ)
@@ -588,6 +579,5 @@
 (setf (get 'cons 'C1CONDITIONAL) 'co1cons)
 (setf (get 'eql 'C1CONDITIONAL) 'co1eql)		    
 (setf (get 'ldb 'C1CONDITIONAL) 'co1ldb)
-(setf (get 'schar 'C1CONDITIONAL) 'co1schar)
 (setf (get 'vector-push 'C1CONDITIONAL) 'co1vector-push)
 (setf (get 'vector-push-extend 'C1CONDITIONAL) 'co1vector-push-extend)