mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-02-22 23:10:46 -08:00
Code Issues Projects Releases Packages Wiki Activity

Optimizer for SCHAR + SYMBOL-NAME makes no longer sense.

Browse source
This commit is contained in:
jjgarcia 2001-07-23 07:55:38 +00:00
parent 4ac52f9948
commit c714dc74ca
1 changed files with 0 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/cmp/cmpfun.lsp
View file

@ -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)