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
...@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment