Enable loading system using quickload

src/as2.lisp

@@ -131,7 +131,8 @@
 
 ;;; From Object to JSON
 
-(defun kebab-camel (kebab-string)
+(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)
       (loop :with capitalize = nil
@@ -143,7 +144,7 @@
                        (setf capitalize nil))
                       (t (write-char (char-downcase char) out))))))
 
-(defun remove-postfix (postfix string)
+  (defun remove-postfix (postfix string)
     "Remove the given postfix from the string if it exists."
     (let* ((postfix-length (length postfix))
            (string-length (length string))
@@ -153,12 +154,12 @@
           (subseq string 0 index)
           string)))
 
-(defun remove-as2-postfix (string)
+  (defun remove-as2-postfix (string)
     "Remove the '-as2' prefix from the given string."
     (remove-postfix "-as2" (string-downcase string)))
 
-(defun prepare-property-key (name)
+  (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)