Stacken/c64-livecoding
6
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Move label name + prefix warning to the right place

Browse source
This commit is contained in:
John Lorentzson 2025-05-08 21:54:36 +02:00
parent eec5edc715
commit 379d33d5a1
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
wip-duuqnd/user-side-compiler/label.lisp
View file

@ -17,9 +17,9 @@
(format nil "~A~D" prefix (incf *label-counter*)))
(defun make-label (&key name name-prefix address)
(when (null name)
(setf name (make-label-name (if (null name-prefix) "L" name-prefix))))
(when (and (not (null name)) (not (null name-prefix)))
(warn "MAKE-LABEL with both name (~A) and prefix (~A) specified (useless)."
name name-prefix))
(when (null name)
(setf name (make-label-name (if (null name-prefix) "L" name-prefix))))
(make-instance 'label :name name :address address))