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

Added defknowns for make-weak-pointer and make-scavenger-hook, and removed

the defknown for %make-weak-pointer.
parent 71588b71
No related branches found
No related tags found
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/compiler/generic/vm-fndb.lisp,v 1.51 1993/03/13 14:39:53 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.52 1993/05/07 07:14:49 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -128,10 +128,14 @@ ...@@ -128,10 +128,14 @@
(flushable movable)) (flushable movable))
(defknown %make-weak-pointer (t boolean) weak-pointer (defknown make-weak-pointer (t) weak-pointer
(flushable)) (flushable))
(defknown %make-scavenger-hook (t function) scavenger-hook (defknown %make-scavenger-hook (t function) scavenger-hook
(flushable)) (flushable))
(defknown ((setf scavenger-hook-value)) (t scavenger-hook) t
(unsafe))
(defknown %make-complex (real real) complex (defknown %make-complex (real real) complex
(flushable movable)) (flushable movable))
(defknown %make-ratio (rational rational) ratio (defknown %make-ratio (rational rational) ratio
......
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