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

Remove unused code.

Browse source
This commit is contained in:
jgarcia 2007-11-30 23:49:44 +00:00
parent e0f5c66ebe
commit ebe0edd5c2
1 changed files with 0 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/cmp/cmpcall.lsp
View file

@ -13,18 +13,6 @@
(in-package "COMPILER")
(defun fast-link-proclaimed-type-p (fname &optional args)
(and *compile-to-linking-call*
(symbolp fname)
(and (< (the fixnum (length args)) 10)
(or (and (get-sysprop fname 'FIXED-ARGS)
(listp args))
(and
(get-sysprop fname 'PROCLAIMED-FUNCTION)
(eq (get-sysprop fname 'PROCLAIMED-RETURN-TYPE) t)
(every #'(lambda (v) (eq v t))
(get-sysprop fname 'PROCLAIMED-ARG-TYPES)))))))
;;; Like macro-function except it searches the lexical environment,
;;; to determine if the macro is shadowed by a function or a macro.
(defun cmp-macro-function (name)