RosettaCodeData/Task/Variable-size-Get/Common-Lisp/variable-size-get-1.lisp

(let ((a (cons 1 2))
      (b (make-array 10))
      (c "a string"))
  (list (hcl:find-object-size a)
        (hcl:find-object-size b)
        (hcl:find-object-size c)))