Skip to content
Snippets Groups Projects
Commit eabb74c9 authored by ram's avatar 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
No related branches found
No related tags found
No related merge requests found
......@@ -6,7 +6,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(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 @@
;;
;; The list of expansions for this search-list. Each expansion is the 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)
(declare (ignore depth))
......
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