/[cmucl]/src/code/pathname.lisp
ViewVC logotype

Diff of /src/code/pathname.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by wlott, Wed Dec 18 22:35:03 1991 UTC revision 1.4 by ram, Fri Dec 20 02:07:12 1991 UTC
# Line 838  Line 838 
838    ;;    ;;
839    ;; 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
840    ;; of directory components to use in place of this search-list.    ;; of directory components to use in place of this search-list.
841    (expansions nil :type list))    (%expansions (%primitive c:make-value-cell nil)));  :type list))
842    
843    (defun search-list-expansions (x)
844      (%primitive c:value-cell-ref (search-list-%expansions x)))
845    
846    (defun (setf search-list-expansions) (val x)
847      (%primitive c:value-cell-set (search-list-%expansions x) val))
848    
849  (defun %print-search-list (sl stream depth)  (defun %print-search-list (sl stream depth)
850    (declare (ignore depth))    (declare (ignore depth))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5