/usr/share/common-lisp/source/iterate/package.lisp is in cl-iterate 20160825-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | ;;; Some of the 7 extremely random interface commands
;;; got replaced by defpackage.
;;; Use uninterned symbols here so that:
;;; 1. there's no iterate symbol in package USER.
;;; 2. it may work in case-sensitive mode/packages.
(defpackage #:iterate
(:use #:cl)
(:nicknames #:iter)
(:export #:iterate #:iter #:display-iterate-clauses
#:defsynonym #:dsetq #:declare-variables
#:defmacro-clause #:defmacro-driver #:defclause-sequence
#:initially #:after-each #:finally #:finally-protected
#:else #:if-first-time #:first-iteration-p #:first-time-p
#:finish #:leave #:next-iteration #:next #:terminate
#:repeat #:for #:as #:generate #:generating #:in
#:sum #:summing #:multiply #:multiplying
#:maximize #:minimize #:maximizing #:minimizing #:counting
#:always #:never #:thereis #:finding #:collect #:collecting
#:with #:while #:until #:adjoining #:nconcing #:appending
#:nunioning #:unioning #:reducing #:accumulate #:accumulating))
(in-package #:iterate)
;;; work around sbcl's obnoxious standard compliance
(defmacro defconst (name value &optional doc)
`(eval-when (:compile-toplevel :load-toplevel :execute)
(unless (boundp ',name)
,(if doc
`(defconstant ,name ,value ,doc)
`(defconstant ,name ,value)))))
|