Parent Directory | Revision Log | Patch
revision 1.4 by camm, Sat Jul 23 08:49:42 2005 UTC | revision 1.5 by camm, Sun Sep 18 01:59:13 2005 UTC | |
---|---|---|
# | Line 27 | Line 27 |
27 | (defvar eof (cons nil nil)) | (defvar eof (cons nil nil)) |
28 | (defvar *Ufun-out*) | (defvar *Ufun-out*) |
29 | ||
30 | (defvar *str* (make-array 128 :element-type 'string-char :fill-pointer 0)) | (defvar *str* (make-array 128 :element-type 'character :fill-pointer 0)) |
31 | ||
32 | (defun make-Ufun (in-files &key (out-file "Ufun_list.lsp")) | (defun make-Ufun (in-files &key (out-file "Ufun_list.lsp")) |
33 | (with-open-file (*Ufun-out* out-file :direction :output) | (with-open-file (*Ufun-out* out-file :direction :output) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |