diff options
| author | colin <colin@cicadas.surf> | 2024-06-01 11:51:49 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-06-01 11:51:49 -0700 |
| commit | 54d3ebe78702e64b8185f6df8da85ab329c26128 (patch) | |
| tree | 576d85c5b66a556eebb7c115616635a4994442dd | |
| parent | 4bc773964ae3c48b806fc2ad30dd5811571d902a (diff) | |
Fix: bug in instr
| -rw-r--r-- | src/ast.lisp | 10 | ||||
| -rw-r--r-- | src/util.lisp | 2 |
2 files changed, 1 insertions, 11 deletions
diff --git a/src/ast.lisp b/src/ast.lisp index 9987ddf..4b12745 100644 --- a/src/ast.lisp +++ b/src/ast.lisp @@ -8,18 +8,8 @@ (in-package #:sarcasm.ast) -;;; TYPES - - ;;; MODULE-STRUCTURES -(def/class instr () - ((name :prefix :type keyword) - (code :prefix :type (vector byte)) - (type :prefix :type stack-effect-type))) - -(def/class numeric-instr (instr)) - (def/class func () (type :prefix :type typeidx) (locals :type (vector valtype)) diff --git a/src/util.lisp b/src/util.lisp index e561778..79367ac 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -60,7 +60,7 @@ CLASS-OPTIONS is a PLIST of class options." (parse-slot-spec-expr (expr) " (names ... &key kwargs)" (multiple-value-bind (slot-names kwargs) (take-until #'keywordp expr) - (multiple-value-bind (kwargs singles) (partition #'singlep kwargs) + (multiple-value-bind (singles kwargs) (partition #'singlep kwargs) (loop :with prefix-accessor? := (find ':prefix singles :test #'eq) :for slot :in slot-names |