Daily work in progress.

[sod] / src / pset-proto.lisp

diff --git a/src/pset-proto.lisp b/src/pset-proto.lisp
index e10e8b9..aafa306 100644 (file)
--- a/src/pset-proto.lisp
+++ b/src/pset-proto.lisp
@@ -42,7 +42,7 @@
 (defgeneric property-type (value)
   (:documentation "Guess a sensible property type to use for VALUE.")
   (:method ((value symbol)) :symbol)
-  (:method ((value integer)) :integer)
+  (:method ((value integer)) :int)
   (:method ((value string)) :string)
   (:method ((value character)) :char)
   (:method (value) :other))