Skip to content
Snippets Groups Projects
Commit 9bba7bb4 authored by wlott's avatar wlott
Browse files

Don't warn about &rest consing if we can't figure out what the argument

signature is, because we don't use &rest anymore.
parent 1bb85959
Branches
Tags
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/profile.lisp,v 1.11 1994/02/10 21:08:13 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/profile.lisp,v 1.12 1994/02/10 21:25:38 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -72,9 +72,6 @@ ...@@ -72,9 +72,6 @@
(defun required-arguments (name) (defun required-arguments (name)
(let ((type (ext:info function type name))) (let ((type (ext:info function type name)))
(cond ((not (kernel:function-type-p type)) (cond ((not (kernel:function-type-p type))
(warn "No argument count information available for:~% ~S~@
Allow for &rest arg consing."
name)
(values 0 t)) (values 0 t))
(t (t
(values (length (kernel:function-type-required type)) (values (length (kernel:function-type-required type))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment