or the ccb assigments on calling a local function - gcl.git - GNU Common Lisp

GNU Common Lisp

diff options

or the ccb assigments on calling a local function

-rwxr-xr-x

1 files changed, 3 insertions, 1 deletions

diff --git a/gcl/cmpnew/gcl_cmpeval.lsp b/gcl/cmpnew/gcl_cmpeval.lsp
index 5ad2ff95e..7849e3ba2 100755
--- a/gcl/cmpnew/gcl_cmpeval.lsp
+++ b/gcl/cmpnew/gcl_cmpeval.lsp

@@ -1780,7 +1780,9 @@

((setq fd (c1local-fun fn))

(add-info info (cadr fd))

(setf (info-type info) (if (eq (info-type (cadr fd)) 'boolean) #tboolean (info-type (cadr fd))));FIXME

- `(call-local ,info ,(nconc (caddr fd) ll) ,(cadddr fd) ,(fifth fd) ,fms));FIXME

+ (let ((fm (fifth fd)))

+ (when fm (or-ccb-assignments (list fm)))

+ `(call-local ,info ,(nconc (caddr fd) ll) ,(cadddr fd) ,fm ,fms)));FIXME

(`(call-global ,info ,fn ,fms nil ,@ll))))

;; (defun mi5 (fn info fms la &aux (ll (when la (list (length fms)))) fd)

generated by cgit v1.2.3 (git 2.39.1) at 2025年09月04日 03:43:22 +0000