bug in init.lsp? (8.4.3)
Posted: Tue Feb 15, 2005 7:59 pm
Taken from 8.4.3 init.lsp
Isn't the the (constant ..) the else from '(if (not defun) ...)'
should be:
Isn't the the (constant ..) the else from '(if (not defun) ...)'
Code: Select all
(if (not defun) ; loading twice would fail because of constant
(define-macro (defun _func-name _arguments)
(set _func-name (append
'(lambda )
(list _arguments)
(args))))
(constant (global 'defun)))
Code: Select all
(if (not defun) ; loading twice would fail because of constant
(begin
(define-macro (defun _func-name _arguments)
(set _func-name (append
'(lambda )
(list _arguments)
(args))))
(constant (global 'defun))))