Skip to content
Snippets Groups Projects
Commit eb8b5743 authored by ram's avatar ram
Browse files

Fixed REQUIRE-ARGUMENTS to work on functions with no argcount info.

Fixed COMPUTE-TIME-OVERHEAD-AUX to always have arg info.
parent d11ccfa8
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/profile.lisp,v 1.2 1991/05/06 13:34:09 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/profile.lisp,v 1.3 1992/01/30 17:04:45 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -97,7 +97,7 @@
(let* ((function (fdefinition name)))
(if (eql (kernel:get-type function) vm:function-header-type)
(let ((type (kernel:%function-header-type function)))
(if type
(if (consp type)
(let* ((args (cadr type))
(pos (position-if
#'(lambda (x)
......@@ -491,6 +491,7 @@
;;;
(proclaim '(notinline compute-time-overhead-aux))
(defun compute-time-overhead-aux (x)
(declare (optimize (debug-info 2))) ; Make sure we have arglist info...
(declare (ignore x)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment