mmarco/kenzo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added missing NREVERSE in return from ABAR.

Browse Source
This commit is contained in:
Gerd Heber 2016-02-29 19:16:38 -05:00
parent ddee5978cc
commit fa9eb0fc70
1 changed files with 336 additions and 334 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/bar.lisp
View File

@ -1,3 +1,5 @@
;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
;;;
;;; BAR BAR BAR BAR BAR BAR BAR BAR BAR ;;; BAR BAR BAR BAR BAR BAR BAR BAR BAR
;;; BAR BAR BAR BAR BAR BAR BAR BAR BAR ;;; BAR BAR BAR BAR BAR BAR BAR BAR BAR
;;; BAR BAR BAR BAR BAR BAR BAR BAR BAR ;;; BAR BAR BAR BAR BAR BAR BAR BAR BAR
@ -22,7 +24,7 @@
((endp mark)) ((endp mark))
(declare (list mark)) (declare (list mark))
(push (brgn (car mark) (cadr mark)) rslt)) (push (brgn (car mark) (cadr mark)) rslt))
(make-abar :list rslt)))) (make-abar :list (nreverse rslt)))))
#-sbcl (DEFINE-CONSTANT +NULL-ABAR+ (make-abar :list +empty-list+)) #-sbcl (DEFINE-CONSTANT +NULL-ABAR+ (make-abar :list +empty-list+))