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

Make TRANSFORM return OBJ if it's already TO-TYPE

Browse source
This commit is contained in:
John Lorentzson 2025-05-22 12:18:56 +02:00
parent 1307e31268
commit 7639263bed
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
wip-duuqnd/user-side-compiler/transform.lisp
View file

@ -57,12 +57,16 @@ that has been somehow created using OBJ as a starting point."
(let* ((from-type (case (type-of obj) (let* ((from-type (case (type-of obj)
((bit number integer fixnum) 'integer) ((bit number integer fixnum) 'integer)
(t (type-of obj)))) (t (type-of obj))))
(path (transform-path from-type to-type))) (path (if (typep obj to-type)
(if (listp path) obj
(transform-path from-type to-type))))
(cond ((listp path)
(loop :for intermediate :in path (loop :for intermediate :in path
:do (setf obj (%direct-transform obj intermediate)) :do (setf obj (%direct-transform obj intermediate))
:finally (return (%direct-transform obj to-type))) :finally (return (%direct-transform obj to-type))))
(%direct-transform obj to-type)))) ((eql obj path)
obj)
(t (%direct-transform obj to-type)))))
(defmacro define-transformation ((var-name (from-type to-type)) &body body) (defmacro define-transformation ((var-name (from-type to-type)) &body body)
"Defines a transformation rule for objects going from FROM-TYPE to TO-TYPE. "Defines a transformation rule for objects going from FROM-TYPE to TO-TYPE.