anchor.diff:      loader))
   
   (defun load-asset (filename type &optional (identifier filename))
  -  (format t "Loading asset of type ~S from ~S~%" type filename)
  +  (format t "Loading asset of type ~S from ~S as ~S~%" type filename identifier)
     (with-resource-manager *content-manager*
       (when (existing-resource-p identifier)
         (warn "Asset already loaded or identifier conflict for ~A." identifier))
  
positive.code: (defun defasset (asset-type load &optional unload (extensions :any))
    (push (make-asset-loader :load load :unload unload
                             :extensions extensions)
          (gethash asset-type *asset-loaders*)))
negative.code: 
  (defun asset-loader-extension-supported-p (loader extension)
    (or (eq :any (asset-loader-extensions loader))
        (member (string-upcase extension) (asset-loader-extensions loader)
                :test #'string-equal)))
  
  (defun make-asset-loader (&key (load nil) (unload nil) (extensions :any))
    (list load unload (if (listp extensions)
  