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

Changed some symbol frobs around.

parent f6553c9d
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/fndb.lisp,v 1.42 1992/02/13 13:19:42 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.43 1992/02/24 00:41:30 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -37,8 +37,6 @@ ...@@ -37,8 +37,6 @@
%set-row-major-aref %set-row-major-aref
%setelt %setelt
%setnth %setnth
%sp-set-definition
%sp-set-plist
%standard-char-p %standard-char-p
%svset %svset
%typep %typep
...@@ -1097,6 +1095,8 @@ ...@@ -1097,6 +1095,8 @@
(defknown kernel:%with-array-data (array index (or index null)) (defknown kernel:%with-array-data (array index (or index null))
(values (simple-array * (*)) index index index) (values (simple-array * (*)) index index index)
(foldable flushable)) (foldable flushable))
(defknown %set-symbol-function (symbol function) function (unsafe))
(defknown %set-symbol-package (symbol t) t (unsafe))
;;; Structure slot accessors or setters are magically "known" to be these ;;; Structure slot accessors or setters are magically "known" to be these
;;; functions, although the var remains the Slot-Accessor describing the actual ;;; functions, although the var remains the Slot-Accessor describing the actual
...@@ -1119,8 +1119,9 @@ ...@@ -1119,8 +1119,9 @@
(defknown %sbitset (simple-bit-vector &rest index) bit (unsafe)) (defknown %sbitset (simple-bit-vector &rest index) bit (unsafe))
(defknown %charset (string index character) character (unsafe)) (defknown %charset (string index character) character (unsafe))
(defknown %scharset (simple-string index character) character (unsafe)) (defknown %scharset (simple-string index character) character (unsafe))
(defknown %sp-set-definition (symbol function) function (unsafe)) (defknown %set-symbol-value (symbol t) t (unsafe))
(defknown %sp-set-plist (symbol t) t (unsafe)) (defknown fset (symbol function) function (unsafe))
(defknown %set-symbol-plist (symbol t) t (unsafe))
(defknown %set-documentation ((or symbol cons) symbol (or string null)) (defknown %set-documentation ((or symbol cons) symbol (or string null))
(or string null) (or string null)
()) ())
......
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