Changeset 14790


Ignore:
Timestamp:
May 9, 2011, 8:43:39 PM (8 years ago)
Author:
rme
Message:

Get rid of a pair of (apparently) pointless top-level progns wrapping
the implementation of reverse and nreverse.

(Yes, I suppose this falls into the pointlessly obsessive tidying
category.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-aprims.lisp

    r14553 r14790  
    330330(defun logical-pathname-p (thing) (istruct-typep thing 'logical-pathname))
    331331
    332 (progn
    333332;;; It's back ...
    334333(defun list-nreverse (list)
     
    354353    (seq-dispatch seq
    355354                  (list-nreverse seq)
    356                   (vector-nreverse seq)))))
     355                  (vector-nreverse seq))))
    357356
    358357(defun nreconc (x y)
     
    382381                (setq tail (cdr (rplacd tail (cons element nil)))))))))))
    383382
    384 
    385 
    386                      
    387 
    388 
    389 
    390 
    391 
    392 
    393 
    394 (progn
    395383(defun list-reverse (l)
    396384  (do* ((new ()))
     
    413401  "Return a new sequence containing the same elements but in reverse order."
    414402  (seq-dispatch seq (list-reverse seq) (vector-reverse seq)))
    415 )
    416 
    417403
    418404(defun check-sequence-bounds (seq start end)
Note: See TracChangeset for help on using the changeset viewer.