capture predicates in split-decls in ttl-tag-src - gcl.git - GNU Common Lisp

GNU Common Lisp

diff options

capture predicates in split-decls in ttl-tag-src

-rwxr-xr-x

1 files changed, 1 insertions, 1 deletions

diff --git a/gcl/cmpnew/gcl_cmpeval.lsp b/gcl/cmpnew/gcl_cmpeval.lsp
index 75916df75..37f1c428d 100755
--- a/gcl/cmpnew/gcl_cmpeval.lsp
+++ b/gcl/cmpnew/gcl_cmpeval.lsp

@@ -1148,7 +1148,7 @@

(parse-body-header src)

(let* ((aux (member '&aux ll));FIXME centralize with new-defun-args

(ll (ldiff ll aux))

- (regs (mapcar (lambda (x) (cond ((symbolp x) x) ((symbolp (car x)) (car x)) ((cadar x)))) ll))

+ (regs (mapcan (lambda (x) (if (symbolp x) (list x) (cons (if (symbolp (car x)) (car x) (cadar x)) (cddr x)))) ll))

(regs (set-difference regs '(&optional &rest &key &allow-other-keys)))

(od (split-decls regs decls))

(rd (cons `(declare (optimize (safety ,(decl-safety decls)))) (pop od)))

generated by cgit v1.2.3 (git 2.39.1) at 2025年09月02日 01:14:14 +0000