Permalink
Browse files

CL-ANNOT incompatible fix.

  • Loading branch information...
1 parent a48a045 commit 4717b690d21a3388bec3a4a271d2dcb7cdb561ce m2ym committed Sep 29, 2011
Showing with 5 additions and 7 deletions.
  1. +1 −1 src/case.lisp
  2. +1 −1 src/compile.lisp
  3. +1 −1 src/conditions.lisp
  4. +1 −1 src/match.lisp
  5. +0 −2 src/package.lisp
  6. +1 −1 src/pattern.lisp
View
2 src/case.lisp
@@ -1,5 +1,5 @@
(in-package :cl-pattern)
-(use-syntax annot-syntax)
+(use-syntax :annot)
(declaim (optimize (speed 3)))
@eval-always
View
2 src/compile.lisp
@@ -1,5 +1,5 @@
(in-package :cl-pattern)
-(use-syntax annot-syntax)
+(use-syntax :annot)
(declaim (optimize (speed 3)))
(defun partition-match-clauses (clauses)
View
2 src/conditions.lisp
@@ -1,5 +1,5 @@
(in-package :cl-pattern)
-(use-syntax annot-syntax)
+(use-syntax :annot)
@export
@export-accessors
View
2 src/match.lisp
@@ -1,5 +1,5 @@
(in-package :cl-pattern)
-(use-syntax annot-syntax)
+(use-syntax :annot)
(declaim (optimize (speed 3)))
(defmacro %match (vars clauses &optional else)
View
2 src/package.lisp
@@ -5,8 +5,6 @@
:with-gensyms)
(:import-from :syntax
:use-syntax)
- (:import-from :syntax-annot
- :annot-syntax)
(:import-from :annot.eval-when
:eval-always)
(:import-from :annot.class
View
2 src/pattern.lisp
@@ -1,5 +1,5 @@
(in-package :cl-pattern)
-(use-syntax annot-syntax)
+(use-syntax :annot)
(declaim (optimize (speed 3)))
(defmacro %equal (pattern value)

0 comments on commit 4717b69

Please sign in to comment.