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

Added stuff to make INFO FUNCTION TYPE on a function name that is defined

as an interpreted function call EVAL:INTERPRETED-FUNCTION-TYPE, rather
than bogusly looking at the closure over the interpreter.
parent e03e97a8
Branches
Tags
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/globaldb.lisp,v 1.14 1990/10/11 17:35:18 ram Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/globaldb.lisp,v 1.15 1990/11/20 18:37:13 ram Exp $
;;; ;;;
;;; This file provides a functional interface to global information about ;;; This file provides a functional interface to global information about
;;; named things in the system. Information is considered to be global if it ;;; named things in the system. Information is considered to be global if it
...@@ -988,9 +988,11 @@ ...@@ -988,9 +988,11 @@
(define-info-type function type ctype (define-info-type function type ctype
#+new-compiler #+new-compiler
(if (fboundp name) (if (fboundp name)
(specifier-type (%primitive function-type (let ((def (fdefinition name)))
(%primitive closure-function (if (eval:interpreted-function-p def)
(fdefinition name)))) (eval:interpreted-function-type def)
(specifier-type (%primitive function-type
(%primitive closure-function def)))))
(specifier-type 'function)) (specifier-type 'function))
#-new-compiler #-new-compiler
(specifier-type 'function)) (specifier-type 'function))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment