;;; ---------------------------------------------------------------------------
;;;


(defgeneric Print-Id (Obj)
  (:method-combination progn)
)

(defmethod Print-Id progn ((x t))
  (print "I'm a t")
)
(defmethod Print-Id progn ((x Number))
  (print "I'm a number")
)

(defmethod Print-Id progn ((x Integer))
  (print "I'm an interger")
)

(defmethod Print-Id progn ((x Real))
  (print "I'm a real")
)


(defgeneric Foo (Number)
  (:method-combination list)
)


(defmethod Foo list ((x Number))
  (+ x 0.1))

(defmethod Foo list ((x Integer))
  (+ x 0.02)
)

(defmethod Foo list ((x Rational))
  (+ x 0.003)
  )

(defmethod Foo list ((x single-float))
  (+ x 0.0004)
)