/[gcl]/gcl/unixport/init_gcl.lsp.in
ViewVC logotype

Diff of /gcl/unixport/init_gcl.lsp.in

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)))

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26