Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Allegro Common Lisp-GNU Emacs Interface
tag: acl82b_t6

Fetching latest commit…

Cannot retrieve the latest commit at this time

Failed to load latest commit information.
doc
examples
nsis
tools
.cvsignore
.gitignore
ChangeLog
Doc.el
Doc0.el
Makefile
README
RELNOTES
emacsdir.pl
fi-basic-lep.el
fi-build.el
fi-changes.el
fi-compile.el
fi-composer.el
fi-db.el
fi-dmode.el
fi-emacs18.el
fi-emacs19.el
fi-emacs21.el
fi-filec.el
fi-gnu.el
fi-inc-vers.el
fi-indent.el
fi-keys.el
fi-leep-xemacs.el
fi-leep.el
fi-leep0.el
fi-lep.el
fi-lze.el
fi-manual-data.el
fi-manual.el
fi-modes.el
fi-ring.el
fi-rlogin.el
fi-shell.el
fi-site-init.el
fi-stream.el
fi-su.el
fi-sublisp.el
fi-subproc.el
fi-telnet.el
fi-test.el
fi-utils.el
fi-vers.el
fi-xcompile.el
fi-xemacs.el
local.mak
localfidev.el
relnotes.htm
version.mak
xemacsdir.pl

README

To find items not documented in doc/eli.htm:

(defmacro with-lines-from-file ((var file) &body body)
  (let ((s (gensym)))
    `(with-open-file (,s ,file :direction :input)
       (let (,var)
	 (loop
	   (setq ,var (read-line ,s nil ,s))
	   (when (eq ,var ,s) (return nil))
	   ,@body)))))

(with-lines-from-file (line "eli/xxx2")
  (when (/= 0 (run-shell-command
	       (format nil
		       "egrep -q '%% ~a' eli/doc/eli.htm"
		       line)))
    (format t "~a~%" line)))
Something went wrong with that request. Please try again.