;; code for loading the contents of a url into ap5
(in-package :ap5)

(defun wget (url file &optional (options ""))
  (EXT:RUN-SHELL-COMMAND
   (format nil "wget ~s -O ~s ~s" options file url)))

(defun loadurl (url name &optional (options ""))
  ;; name is both the name of the file and the package
  (wget url name options)
  (let ((*package* (eval `(defpackage ,name (:use lisp ap5)
			    (:shadowing-import-from ap5 loop ++ --)))))
    (load name)))