edit *.ros for package names.

This commit is contained in:
SANO Masatoshi 2016-05-12 12:29:03 +09:00
parent 3825a8029f
commit 4b915f49a4
10 changed files with 22 additions and 25 deletions

View file

@ -15,10 +15,9 @@ exec ros -Q -m roswell -L sbcl-bin -- $0 "$@"
(unless (find-package :plump)
(ql:quickload '(:plump) :silent t)))
(defpackage :ros.sub.asdf
(:use :cl :ros.util :ros.locations))
(in-package :ros.sub.asdf)
(defpackage :ros.script.asdf.3672011844
(:use :cl :ros.util :ros.locations))
(in-package :ros.script.asdf.3672011844)
(defun asdf-get-version ()
(format *error-output* "Checking version to install....~%")

View file

@ -6,9 +6,10 @@ exec ros -Q +R -- $0 "$@"
(unless (find-package :uiop)
(ql:quickload :uiop :silent t))
(defpackage :ros.sub.build
(defpackage :ros.script.build.3672011906
(:use :cl))
(in-package :ros.sub.build)
(in-package :ros.script.build.3672011906)
(defun parse-argv (argv)
(let* ((header "exec ros")

View file

@ -12,10 +12,9 @@ exec ros +Q -m roswell -L sbcl-bin -- $0 "$@"
(unless (find-package :uiop)
(ql:quickload :uiop :silent t)))
(defpackage :ros.sub.delete
(defpackage :ros.script.delete.3672011943
(:use :cl :ros.util))
(in-package :ros.sub.delete)
(in-package :ros.script.delete.3672011943)
(defun delete-dump (params)
(declare (ignorable params))

View file

@ -11,9 +11,9 @@ exec ros -- $0 "$@"
#-quicklisp(require :uiop)
#+quicklisp(ql:quickload :uiop :silent t)))
(defpackage :ros.dump
(defpackage :ros.script.dump.3672012101
(:use :cl :ros.util))
(in-package :ros.dump)
(in-package :ros.script.dump.3672012101)
(defun dump-dir ()
(merge-pathnames (format nil "impls/~A/~A/~A/dump/"

View file

@ -6,9 +6,9 @@ exec ros -L sbcl-bin -- $0 "$@"
#-ros.util
(ros:include "util")
(defpackage :ros.sub.emacs
(defpackage :ros.script.emacs.3672012160
(:use :cl))
(in-package :ros.sub.emacs)
(in-package :ros.script.emacs.3672012160)
(defun main (&rest argv)
(let ((path (merge-pathnames "slime-helper.el" (ros:opt "quicklisp"))))

View file

@ -7,10 +7,9 @@ exec ros -Q -m roswell -L sbcl-bin -- $0 "$@"
#-ros.util
(ros:include "util")
(defpackage :ros.sub.init
(defpackage :ros.script.init.3672012201
(:use :cl :ros))
(in-package :ros.sub.init)
(in-package :ros.script.init.3672012201)
(defun main (subcmd cmd &optional name &rest r)
(declare (ignore cmd))

View file

@ -7,10 +7,9 @@ exec ros +Q -m roswell -L sbcl-bin -- $0 "$@"
#-ros.util
(ros:include "util")
(defpackage :ros.sub.list
(defpackage :ros.script.list.3672012243
(:use :cl :ros.util))
(in-package :ros.sub.list)
(in-package :ros.script.list.3672012243)
(defun installed (&rest r)
(cond

View file

@ -7,9 +7,9 @@ exec ros -Q -L sbcl-bin -- $0 "$@"
#-ros.util
(ros:include "util")
(defpackage :ros.sub.setup
(defpackage :ros.script.setup.3672012282
(:use :cl :ros.util))
(in-package :ros.sub.setup)
(in-package :ros.script.setup.3672012282)
(defun main (&rest argv)
(declare (ignorable argv))

View file

@ -7,10 +7,10 @@ exec ros +R +Q -L sbcl-bin -m roswell -- $0 "$@"
#-ros.util
(ros:include "util")
(defpackage :ros.use
(defpackage :ros.script.use.3672012320
(:use :cl :ros.util))
(in-package :ros.use)
(in-package :ros.script.use.3672012320)
(defun main (subcmd impl/version &rest argv)
(declare (ignorable subcmd impl/version))

View file

@ -3,9 +3,9 @@
#|Wait forever
exec ros -Q -- $0 "$@"
|#
(defpackage :ros.sub.wait
(defpackage :ros.script.wait.3672012352
(:use :cl))
(in-package :ros.sub.wait)
(in-package :ros.script.wait.3672012352)
(defun main (&rest argv)
(declare (ignorable argv))