Permalink
Browse files

fix groveller by adding symbolicate to alexandria

  • Loading branch information...
1 parent 7358554 commit 89b6cd7932271a2e84f115ac5793d9bea717c903 @attila-lendvai attila-lendvai committed Jun 4, 2008
Showing with 2 additions and 2 deletions.
  1. +1 −1 grovel/grovel.lisp
  2. +1 −1 src/foreign-vars.lisp
View
@@ -29,7 +29,7 @@
;;;
(defpackage #:cffi-grovel
- (:use #:common-lisp #:cffi-utils #:alexandria)
+ (:use #:common-lisp #:alexandria)
(:import-from #:cffi-sys #:native-namestring)
(:export
#:grovel-file
View
@@ -58,7 +58,7 @@ returning nil when foreign-name is not found."
(declare (ignore documentation))
(multiple-value-bind (lisp-name foreign-name options)
(parse-name-and-options name-and-options t)
- (let ((fn (format-symbol t "%VAR-ACCESSOR-~A" lisp-name))
+ (let ((fn (symbolicate '#:%var-accessor- lisp-name))
(read-only (getf options :read-only))
(library (getf options :library)))
;; We can't really setf an aggregate type.

0 comments on commit 89b6cd7

Please sign in to comment.