mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-17 14:51:20 -08:00
Code Issues Projects Releases Packages Wiki Activity

When dumping the help file, we have to use ECL's syntax, which forces packag prefixes and '::'

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-01-28 22:12:53 +01:00
parent cc5fb16337
commit 1214dfd8f6
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/lsp/helpfile.lsp
View file

@ -52,8 +52,10 @@
(setq entries (sort entries #'string-lessp :key #'car))
(let* ((*package* (find-package "CL"))
(file (open path :direction :output)))
(dolist (l entries)
(format file "~A~S~%~S~%" #\^_ (car l) (rest l)))
(progv (car +ecl-syntax-progv-list+)
(cdr +ecl-syntax-progv-list+)
(dolist (l entries)
(format file "~A~S~%~S~%" #\^_ (car l) (rest l))))
(close file)
path)))