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
eabb74c9
Commit
eabb74c9
authored
Dec 20, 1991
by
ram
Browse files
As a temporary hack until we fix purify to know what structures are R/O, added
a VALUE-CELL in the SEARCH-LIST-EXPANSIONS slot.
parent
2d4990f6
Changes
1
Hide whitespace changes
Inline
Side-by-side
code/pathname.lisp
View file @
eabb74c9
...
@@ -6,7 +6,7 @@
...
@@ -6,7 +6,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/code/pathname.lisp,v 1.
3
1991/12/
18 22:35:03 wlott
Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.
4
1991/12/
20 02:07:12 ram
Exp $"
)
;;;
;;;
;;; **********************************************************************
;;; **********************************************************************
;;;
;;;
...
@@ -838,7 +838,13 @@
...
@@ -838,7 +838,13 @@
;;
;;
;; The list of expansions for this search-list. Each expansion is the list
;; The list of expansions for this search-list. Each expansion is the list
;; of directory components to use in place of this search-list.
;; of directory components to use in place of this search-list.
(
expansions
nil
:type
list
))
(
%expansions
(
%primitive
c:make-value-cell
nil
)))
; :type list))
(
defun
search-list-expansions
(
x
)
(
%primitive
c:value-cell-ref
(
search-list-%expansions
x
)))
(
defun
(
setf
search-list-expansions
)
(
val
x
)
(
%primitive
c:value-cell-set
(
search-list-%expansions
x
)
val
))
(
defun
%print-search-list
(
sl
stream
depth
)
(
defun
%print-search-list
(
sl
stream
depth
)
(
declare
(
ignore
depth
))
(
declare
(
ignore
depth
))
...
...
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