Parent Directory | Revision Log | Patch
revision 1.16 by camm, Mon Mar 7 15:33:41 2005 UTC | revision 1.17 by camm, Sun Sep 18 02:49:33 2005 UTC | |
---|---|---|
# | Line 20 | Line 20 |
20 | ||
21 | (or lisp::*link-array* | (or lisp::*link-array* |
22 | (setq lisp::*link-array* | (setq lisp::*link-array* |
23 | (make-array (ash 1 11) :element-type 'string-char :fill-pointer 0))) | (make-array (ash 1 11) :element-type 'character :fill-pointer 0))) |
24 | (si::use-fast-links t) | (si::use-fast-links t) |
25 | ||
26 | (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 |