diff options
-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 |