- Code: Select all
(lambda (struct stream depth)
(declare (ignore depth))
(format stream "~a:~a"
(package "" :type string)
(name "" :type string))
;; (defstruct (amf-object
;; (lambda (struct stream depth)
;; (declare (ignore depth))
;; (format stream "[~a object]"
;; (amf-object-class struct)))))
;; (class (make-as3-fqname :as3-name "Object")
;; :type as3-fqname)
;; (properties (make-hash-table :test 'equal)))
;; (make-amf-object :class (make-as3-fqname :package "foo" :name "Bar"))
(defclass amf-object ()
:initarg :constructor ;; if I uncomment the below I'll get error
;; :initfrom (make-as3-fqname :as3-name "Object")
;; :initfrom (make-hash-table :test 'equal)
Since it doesn't compile it sends me to this page: http://www.lispworks.com/documentation/ ... /07_ab.htm for clarification, and I can't understand what is the error I'm making. The commented struct above shows what I would like to use hypothetically, but, I'd need it to be a class.
EDIT: Sorry, never mind it, silly typo It should've been :initform instead.