소스 검색

Minor fix

Innokenty Enikeev 10 년 전
부모
커밋
13d83a351f
1개의 변경된 파일1개의 추가작업 그리고 0개의 파일을 삭제
  1. 1 0
      finance.lisp

+ 1 - 0
finance.lisp

@@ -29,6 +29,7 @@
 
 (defun get-serie (series idx)
   (loop for row in series
+     when (elt row idx)
      collect (list (first row) (elt row idx))))
 
 (defun range (seq &key (key 'identity))