2691084809
avoid name conflicts with functions from "glisp" of the same name. - Renamed defsubst to definline for the same reason. (This is a commit to the cxml repository, not the main closure repository. If you don't want cxml commit messages on the closure list, please complain to me and I'll change it.)
17 lines
457 B
Common Lisp
17 lines
457 B
Common Lisp
;;;; dep-openmcl.lisp
|
|
;;;;
|
|
;;;; This file is part of the CXML parser, released under (L)LGPL.
|
|
;;;; See file COPYING for details.
|
|
;;;;
|
|
;;;; (c) copyright 1999 by Gilbert Baumann
|
|
|
|
(defmacro runes::definline (fun args &body body)
|
|
(if (consp fun)
|
|
`(defun ,fun ,args
|
|
,@body)
|
|
`(progn
|
|
(defun ,fun ,args .,body)
|
|
(define-compiler-macro ,fun (&rest .args.)
|
|
(cons '(lambda ,args .,body)
|
|
.args.)))))
|