Parent Directory | Revision Log | Patch
revision 1.7 by camm, Mon Mar 7 15:33:41 2005 UTC | revision 1.8 by camm, Sun Sep 18 02:49:33 2005 UTC | |
---|---|---|
# | Line 21 | Line 21 |
21 | ||
22 | (or lisp::*link-array* | (or lisp::*link-array* |
23 | (setq lisp::*link-array* | (setq lisp::*link-array* |
24 | (make-array (ash 1 11) :element-type 'string-char :fill-pointer 0))) | (make-array (ash 1 11) :element-type 'character :fill-pointer 0))) |
25 | (si::use-fast-links t) | (si::use-fast-links t) |
26 | ||
27 | (let* ((x (append (pathname-directory si::*system-directory*) (list :parent))) | (let* ((x (append (pathname-directory si::*system-directory*) (list :parent))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |