Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
cmucl
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Package Registry
Model registry
Operate
Environments
Terraform modules
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Carl Shapiro
cmucl
Commits
67d6823f
Commit
67d6823f
authored
34 years ago
by
ram
Browse files
Options
Downloads
Patches
Plain Diff
Changed package function argument types for cleanup.
Added CONSTANTLY and COMPLEMENT.
parent
ba6f32a4
No related branches found
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
compiler/fndb.lisp
+16
-9
16 additions, 9 deletions
compiler/fndb.lisp
with
16 additions
and
9 deletions
compiler/fndb.lisp
+
16
−
9
View file @
67d6823f
...
...
@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.1
5
1991/01/
02 19:14:51
ram Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.1
6
1991/01/
30 23:20:13
ram Exp $
;;;
;;; This file defines all the standard functions to be known functions.
;;; Each function has type and side-effect information, and may also have IR1
...
...
@@ -145,27 +145,31 @@
(
defknown
make-symbol
(
string
)
symbol
(
flushable
))
(
defknown
copy-symbol
(
symbol
&optional
t
)
symbol
(
flushable
))
(
defknown
gensym
(
&optional
(
or
string
unsigned-byte
))
symbol
())
(
defknown
gentemp
(
&optional
string
package
)
symbol
)
(
defknown
symbol-package
(
symbol
)
(
or
package
null
)
(
flushable
))
(
defknown
keywordp
(
t
)
boolean
(
flushable
))
; If someone uninterns it...
;;;; In the "Packages" chapter:
(
deftype
packagelike
()
'
(
or
stringlike
package
))
(
deftype
symbols
()
'
(
or
list
symbol
))
;;; Should allow a package name, I think, tho CLtL II doesn't say so...
(
defknown
gentemp
(
&optional
string
packagelike
)
symbol
)
(
defknown
make-package
(
stringlike
&key
(
use
list
)
(
nicknames
list
)
;; ### Extensions...
(
internal-symbols
index
)
(
external-symbols
index
))
package
)
(
defknown
in-package
(
stringlike
&key
(
nicknames
list
)
(
use
list
))
void
)
(
defknown
in-package
(
stringlike
&key
(
nicknames
list
)
(
use
list
))
package
)
(
defknown
find-package
(
stringlike
)
(
or
package
null
)
(
flushable
))
(
defknown
package-name
(
package
)
simple-string
(
flushable
))
(
defknown
package-nicknames
(
package
)
list
(
flushable
))
(
defknown
rename-package
(
package
stringlike
&optional
list
)
void
)
(
defknown
package-use-list
(
package
)
list
(
flushable
))
(
defknown
package-used-by-list
(
package
)
list
(
flushable
))
(
defknown
package-shadowing-symbols
(
package
)
list
(
flushable
))
(
defknown
package-name
(
package
like
)
simple-string
(
flushable
))
(
defknown
package-nicknames
(
package
like
)
list
(
flushable
))
(
defknown
rename-package
(
package
like
stringlike
&optional
list
)
package
)
(
defknown
package-use-list
(
package
like
)
list
(
flushable
))
(
defknown
package-used-by-list
(
package
like
)
list
(
flushable
))
(
defknown
package-shadowing-symbols
(
package
like
)
list
(
flushable
))
(
defknown
list-all-packages
()
list
(
flushable
))
(
defknown
intern
(
string
&optional
packagelike
)
(
values
symbol
(
member
:internal
:external
:inherited
))
...
...
@@ -926,6 +930,9 @@
(
defknown
identity
(
t
)
t
(
movable
foldable
flushable
unsafe
)
#|:derive-type 'result-type-arg1|#
)
(
defknown
constantly
(
t
&rest
t
)
function
(
movable
flushable
))
(
defknown
complement
(
function
)
function
(
movable
flushable
))
;;;; Magical compiler frobs:
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment