Enable loading system using quickload

src/as2.lisp

@@ -131,6 +131,7 @@
 
 ;;; From Object to JSON
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (defun kebab-camel (kebab-string)
     "Convert KEBAB-STRING as kebab-case to camelCase."
     (with-output-to-string (out)
@@ -158,7 +159,7 @@
     (remove-postfix "-as2" (string-downcase string)))
 
   (defun prepare-property-key (name)
-  (kebab-camel (remove-as2-postfix (string (symbol-name name)))))
+    (kebab-camel (remove-as2-postfix (string (symbol-name name))))))
 
 ;;; CLOS related stuff
 
@@ -314,3 +315,30 @@
 
 (define-extend-class ignore-as2
   block-as2)
+
+;;; Actor Types
+
+(define-extend-classes object
+  application
+  group
+  organization
+  person
+  service)
+
+;;; Object and Link Types
+
+(define-extend-classes object
+  relationship
+  article
+  document
+  event
+  place
+  profile
+  tombstone)
+
+(define-extend-classes document
+  audio
+  image
+  video
+  note
+  page)