summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/ast.lisp10
-rw-r--r--src/util.lisp2
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