(in-package :common-lisp-user) (eval-when (:load-toplevel :execute) (require 'asdf)) (pushnew :drakma *features*) (defpackage :drakma-asd (:use :cl :asdf)) (in-package :drakma-asd) (defvar *drakma-version-string* "0.5.4" "Drakma's version number as a string.") (eval-when (:load-toplevel :execute) (export '*drakma-version-string*)) (defpackage #:puri-system (:use #:cl #:asdf)) (in-package #:puri-system) (defpackage #:cl-base64-system (:use #:asdf #:cl)) (in-package #:cl-base64-system) (defpackage :flexi-streams-system (:use :asdf :cl)) (defpackage :trivial-gray-streams-system (:use :cl :asdf)) (in-package :flexi-streams-system) (defpackage #:trivial-sockets-system (:use #:asdf #:cl)) (push (mk:dir-append *load-truename* '(:relative "asdf")) asdf:*central-registry*) #| find . -name \*.fasl -exec rm -f {} \; :cl $LOGONROOT/weitz/globals (asdf:operate 'asdf:load-op 'drakma) rm -f drakma.fasl; for i in $(cat FILES); do cat ${i}.fasl >> drakma.fasl; done |#