Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
cmucl
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Package registry
Model registry
Operate
Environments
Terraform modules
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Carl Shapiro
cmucl
Commits
caee4276
Commit
caee4276
authored
21 years ago
by
emarsden
Browse files
Options
Downloads
Patches
Plain Diff
Fix misleading commentary on the implications of the LOOP license (from Adam Warner).
parent
90ea7381
No related branches found
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
code/loop.lisp
+15
-24
15 additions, 24 deletions
code/loop.lisp
with
15 additions
and
24 deletions
code/loop.lisp
+
15
−
24
View file @
caee4276
...
...
@@ -49,47 +49,38 @@
#+
cmu
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/loop.lisp,v 1.2
0
2003/0
2/21 16:25:08 toy
Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/loop.lisp,v 1.2
1
2003/0
5/05 12:09:50 emarsden
Exp $"
)
;;;; LOOP Iteration Macro
#+
allegro
(
in-package
:excl
)
#-
allegro
(
in-package
:ansi-loop
)
(
provide
:loop
)
#+
Cloe-Runtime
;Don't ask.
(
car
(
push
"%Z% %M% %I% %E% %U%"
system::*module-identifications*
))
;;; Technology.
;;;
;;; The LOOP iteration macro is one of a number of pieces of code
;;; originally developed at MIT for which free distribution has been
;;; permitted, as long as the code is not sold for profit, and as long
;;; as notification of MIT's interest in the code is preserved.
;;;
;;; This version of LOOP, which is almost entirely rewritten both as
;;; originally developed at MIT and licensed as set out above. This
;;; version of LOOP, which is almost entirely rewritten both as a
;;; clean-up and to conform with the ANSI Lisp LOOP standard, started
;;; life as MIT LOOP version 829 (which was a part of NIL, possibly
;;; never released).
;;;
;;; A "light revision" was performed by me (Glenn Burke) while at
;;; Palladian Software in April 1986, to make the code run in Common
;;; Lisp. This revision was informally distributed to a number of
;;; people, and was sort of the "MIT" version of LOOP for running in
;;; Common Lisp.
;;; A "light revision" was performed by Glenn Burke while at Palladian
;;; Software in April 1986, to make the code run in Common Lisp. This
;;; revision was informally distributed to a number of people, and was
;;; sort of the "MIT" version of LOOP for running in Common Lisp.
;;;
;;; A later more drastic revision was performed at Palladian perhaps a
;;; year later. This version was more thoroughly Common Lisp in
style,
;;; with a few miscellaneous internal improvements and
extensions. I
;;;
hav
e lost track of this source, apparently
never having moved it to
;;; the MIT distribution point
. I
do not
remember if it was ever
;;; distributed.
;;; year later. This version was more thoroughly Common Lisp in
;;;
style,
with a few miscellaneous internal improvements and
;;;
extensions. Glenn Burk
e lost track of this source, apparently
;;;
never having moved it to
the MIT distribution point
; and
do
es
not
;;;
remember if it was ever
distributed.
;;;
;;; This revision for the ANSI standard is based on the code of my April
;;; 1986 version, with almost everything redesigned and/or rewritten.
;;; This revision for the ANSI standard is based on the code of Glenn
;;; Burke's April 1986 version, with almost everything redesigned
;;; and/or rewritten.
;;; The design of this LOOP is intended to permit, using mostly the same
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment