Hi Mackram,
the error is here:
(defun make-local-dependency (type file-name &key do-not-probe media
(webapp (current-webapp)) (import-p nil)
(backend-root ""))
"Make a local (e.g. residing on the same web server) dependency of
type :stylesheet or :script. Unless :do-not-probe is set, checks if
file-name exists in the server's public files directory, and if it does,
returns a dependency object."
(let* ((relative-path (public-file-relative-path type
(merge-pathnames file-name
(if
(string/= backend-root "")
(maybe-add-trailing-slash backend-root)
""))))
You're calling public-file-relative-path with a pathname but it's not prepared
for that. This function needs to be fixed.
Leslie
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"weblocks" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/weblocks?hl=en
-~----------~----~----~----~------~----~------~--~---
