Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
0d43d552
Commit
0d43d552
authored
Dec 16, 1991
by
wlott
Browse files
Changed the pathname-mumble deftypes to reflect the new pathname format.
parent
93933a30
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/generic/vm-type.lisp
View file @
0d43d552
...
...
@@ -7,11 +7,11 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.2
7
1991/1
1/09 02:40:14
wlott Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.2
8
1991/1
2/16 10:09:55
wlott Exp $"
)
;;;
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.2
7
1991/1
1/09 02:40:14
wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.2
8
1991/1
2/16 10:09:55
wlott Exp $
;;;
;;; This file contains implementation-dependent parts of the type support
;;; code. This is stuff which deals with the mapping from types defined in
...
...
@@ -71,12 +71,13 @@
(
deftype
char-int
()
'char-code
)
;;;
;;; Pathname pieces, as returned by the PATHNAME-xxx functions.
(
deftype
pathname-host
()
'
(
or
simple-string
null
))
; Host not really supported...
(
deftype
pathname-device
()
'
(
or
simple-string
(
member
:absolute
nil
)))
(
deftype
pathname-directory
()
'
(
or
simple-vector
null
))
(
deftype
pathname-name
()
'
(
or
simple-string
null
))
(
deftype
pathname-type
()
'
(
or
simple-string
null
))
(
deftype
pathname-version
()
'
(
or
simple-string
(
member
nil
:newest
)))
(
deftype
pathname-host
()
'
(
or
lisp::host
null
))
(
deftype
pathname-device
()
'
(
member
nil
:unspecific
))
(
deftype
pathname-directory
()
'list
)
(
deftype
pathname-name
()
'
(
or
simple-string
lisp::pattern
null
))
(
deftype
pathname-type
()
'
(
or
simple-string
lisp::pattern
(
member
nil
:unspecific
)))
(
deftype
pathname-version
()
'
(
or
integer
(
member
nil
:newest
:wild
)))
;;;
;;; Internal time format. Not a fixnum (blag...)
(
deftype
internal-time
()
'unsigned-byte
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment