common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

modernize asd files.

Browse source
This commit is contained in:
SANO Masatoshi 2017-05-30 16:34:30 +09:00
parent 2dae778a1f
commit 67cd66199e
3 changed files with 6 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/patch-quicklisp.lisp
View file

@ -1,4 +1,8 @@
(roswell:include "util") (roswell:include "util")
(in-package :roswell)
(defun asd-p (file)
(equal (pathname-type file) "asd"))
(setf *load* (acons 'asd-p 'asdf:load-asd (remove 'asd-p *load* :key 'first)))
(in-package :roswell.util) (in-package :roswell.util)
(defun fetch-via-roswell (url file &key (follow-redirects t) quietly (maximum-redirects 10)) (defun fetch-via-roswell (url file &key (follow-redirects t) quietly (maximum-redirects 10))
"Request URL and write the body of the response to FILE." "Request URL and write the body of the response to FILE."

9
roswell-test.asd
View file

@ -1,10 +1,5 @@
#-asdf #+(and ros.init clisp)
(require :asdf) (ros:asdf)
(in-package :cl-user)
(defpackage roswell-test-asd
(:use :cl :asdf))
(in-package :roswell-test-asd)
(defsystem roswell-test (defsystem roswell-test
:author "SANO Masatoshi" :author "SANO Masatoshi"

9
roswell.asd
View file

@ -1,6 +1,3 @@
#-asdf
(require :asdf)
#| #|
This file is a stub. This file is a stub.
@ -8,12 +5,6 @@ roswell does not function without help of C codes.
|# |#
(in-package :cl-user)
(defpackage roswell-asd
(:use :cl :asdf))
(in-package :roswell-asd)
(defsystem roswell (defsystem roswell
:version "17.5.8.78" :version "17.5.8.78"
:author "SANO Masatoshi" :author "SANO Masatoshi"