Work in progress. Mostly bug fixing.

[sod] / src / pset-proto.lisp

diff --git a/src/pset-proto.lisp b/src/pset-proto.lisp
index e10e8b9bff711d5f82b025a75c0e30b3a32c31d7..aafa306729fc723392e9750dbb240e377d5c4d47 100644 (file)
--- a/src/pset-proto.lisp
+++ b/src/pset-proto.lisp
@@ -42,7 +42,7 @@ (export 'property-type)
 (defgeneric property-type (value)
   (:documentation "Guess a sensible property type to use for VALUE.")
   (:method ((value symbol)) :symbol)
 (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))
   (:method ((value string)) :string)
   (:method ((value character)) :char)
   (:method (value) :other))