Commit 0a717053 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Remove trailing whitespace.

parent dbe9bc7f
......@@ -7,7 +7,7 @@ clnet_home := "/project/asdf/public_html/"
sourceDirectory := $(shell pwd)
lisps = allegro allegromodern ccl clisp sbcl
lisps = allegro allegromodern ccl clisp sbcl
ifndef lisp
lisp := sbcl
......
ASDF: another system definition facility
ASDF: another system definition facility
========================================
If you want to use ASDF to load systems, see the getting
......
......@@ -224,7 +224,7 @@
(if monolithic 'monolithic-fasl-op 'fasl-op))
((:program)
'program-op)))
(defun make-build (system &rest args &key (monolithic nil) (type :fasl)
&allow-other-keys)
......
......@@ -96,7 +96,7 @@ an immediate concern
(:report (lambda (c s)
(format s "Cannot verify package signature: ~A"
(signature-error-cause c)))))
(defun url-host (url)
(assert (string-equal url "http://" :end1 7))
(let* ((port-start (position #\: url :start 7))
......@@ -145,7 +145,7 @@ an immediate concern
(block got
(loop
(destructuring-bind (response headers stream) (url-connection url)
(unless (member response '(301 302))
(unless (member response '(301 302))
(return-from got (list response headers stream)))
(close stream)
(setf url (cdr (assoc :location headers))))))
......@@ -163,7 +163,7 @@ an immediate concern
:element-type
(stream-element-type stream) )))
(read-sequence buf stream)
(write-sequence buf o))
(write-sequence buf o))
(sb-executable:copy-stream stream o))))
(close stream)
(terpri)
......@@ -205,11 +205,11 @@ an immediate concern
'download-error :url (concatenate 'string url ".asc")
:response response)))
(close stream))))
(defun where ()
(defun where ()
(format t "Install where?~%")
(loop for (source system name) in *locations*
for i from 1
......@@ -259,7 +259,7 @@ an immediate concern
(make-pathname
:name (subseq p (if pos-slash (1+ pos-slash) 0) pos-dot)
:type "asdf-install-tmp"))))
(defun run (&optional (packages (cdr *posix-argv*)))
......
This diff is collapsed.
This diff is collapsed.
;;; -*- Lisp -*-
;;; -*- Lisp -*-
(defpackage :cclan-system (:use #:cl #:asdf))
(in-package :cclan-system)
......
......@@ -4,13 +4,13 @@
;;;; asdf itself, but extend it in various ways useful for maintainers
;;;; of new-style cCLan packages
;;;; The public interface consists of the functions whose symbols are
;;;; The public interface consists of the functions whose symbols are
;;;; exported from the package
;;;; This file does not contain references to asdf internals - or
;;;; shouldn't, anyway. Send bug reports
(defun mapappend (function list)
(let ((f (coerce function 'function)))
(loop for i in list append (funcall f i))))
......@@ -29,7 +29,7 @@
(let* ((system (find-system system))
(version (component-version system)))
(format nil "release_~A" (substitute #\_ #\. version))))
(defun cvs-tag (system)
(let* ((system (find-system system))
(directory (component-pathname system)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment