don't set plist of +opaque+ binding - gcl.git - GNU Common Lisp

GNU Common Lisp

diff options

don't set plist of +opaque+ binding

-rwxr-xr-x

1 files changed, 1 insertions, 1 deletions

diff --git a/gcl/cmpnew/gcl_cmpvar.lsp b/gcl/cmpnew/gcl_cmpvar.lsp
index 7e4c81e48..2ef13563b 100755
--- a/gcl/cmpnew/gcl_cmpvar.lsp
+++ b/gcl/cmpnew/gcl_cmpvar.lsp

@@ -995,7 +995,7 @@

(assert st)

; (assert (info-type (cadr form1)))

(setq type (info-type (cadr form1)))

- (setf (get st 'ccb-tp) (type-or1 (get st 'ccb-tp) (info-type (cadr form1)))))

+ (unless (eq st +opaque+) (setf (get st 'ccb-tp) (type-or1 (get st 'ccb-tp) (info-type (cadr form1))))))

(do-setq-tp v (list form form1) (info-type (cadr form1)))

(setq type (var-type (car name1)))

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