| blob | 3668bf837174ea59d5d3180b63599adb1d633cff |
1 ;;; Compiled by f2cl version:
2 ;;; ("f2cl1.l,v 2edcbd958861 2012/05/30 03:34:52 toy $"
3 ;;; "f2cl2.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
4 ;;; "f2cl3.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
5 ;;; "f2cl4.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
6 ;;; "f2cl5.l,v 3fe93de3be82 2012/05/06 02:17:14 toy $"
7 ;;; "f2cl6.l,v 1d5cbacbb977 2008/08/24 00:56:27 rtoy $"
8 ;;; "macros.l,v 3fe93de3be82 2012/05/06 02:17:14 toy $")
10 ;;; Using Lisp CMU Common Lisp 20d (20D Unicode)
11 ;;;
12 ;;; Options: ((:prune-labels nil) (:auto-save t) (:relaxed-array-decls t)
13 ;;; (:coerce-assigns :as-needed) (:array-type ':array)
14 ;;; (:array-slicing t) (:declare-common nil)
15 ;;; (:float-format double-float))
65 incx))))
82 ((> i
86 nil)
91 x-%offset%)
92 (+
96 x-%offset%)
97 (* temp
101 a-%offset%))))
102 label10))
107 x-%offset%)
108 (*
112 x-%offset%)
116 a-%offset%))))))
117 label20)))
129 x-%offset%))
132 ((> i
136 nil)
141 x-%offset%)
142 (+
146 x-%offset%)
147 (* temp
151 a-%offset%))))
153 label30))
158 x-%offset%)
159 (*
163 x-%offset%)
167 a-%offset%))))))
169 label40)))))
188 x-%offset%)
189 (+
193 x-%offset%)
194 (* temp
198 a-%offset%))))
199 label50))
204 x-%offset%)
205 (*
209 x-%offset%)
213 a-%offset%))))))
214 label60)))
220 incx)))
231 x-%offset%))
241 x-%offset%)
242 (+
246 x-%offset%)
247 (* temp
251 a-%offset%))))
253 label70))
258 x-%offset%)
259 (*
263 x-%offset%)
267 a-%offset%))))))
269 label80)))))))
284 (* temp
288 a-%offset%))))
297 (+ temp
298 (*
302 a-%offset%)
306 x-%offset%))))
307 label90)))
311 (* temp
316 a-%offset%)))))
325 (+ temp
326 (*
331 a-%offset%))
335 x-%offset%))))
336 label100))))
338 temp)
339 label110)))
345 incx)))
356 (* temp
360 a-%offset%))))
370 (+ temp
371 (*
375 a-%offset%)
379 x-%offset%))))
380 label120)))
384 (* temp
389 a-%offset%)))))
399 (+ temp
400 (*
405 a-%offset%))
409 x-%offset%))))
410 label130))))
412 temp)
414 label140)))))
427 (* temp
431 a-%offset%))))
437 (+ temp
438 (*
442 a-%offset%)
446 x-%offset%))))
447 label150)))
451 (* temp
456 a-%offset%)))))
462 (+ temp
463 (*
468 a-%offset%))
472 x-%offset%))))
473 label160))))
475 temp)
476 label170)))
489 (* temp
493 a-%offset%))))
500 (+ temp
501 (*
505 a-%offset%)
509 x-%offset%))))
510 label180)))
514 (* temp
519 a-%offset%)))))
526 (+ temp
527 (*
532 a-%offset%))
536 x-%offset%))))
537 label190))))
539 temp)
541 label200))))))))
543 end_label