| blob | d05572c455696e75d2db4fc12473afb6cfb145da |
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))
81 c-%offset%)
82 zero)
83 label10))
84 label20)))
95 c-%offset%)
96 (* beta
100 c-%offset%)))
101 label30))
102 label40)))))
115 c-%offset%)
116 zero)
117 label50))
118 label60)))
129 c-%offset%)
130 (* beta
134 c-%offset%)))
135 label70))
136 label80))))))
153 c-%offset%)
154 zero)
155 label90)))
163 c-%offset%)
164 (* beta
168 c-%offset%)))
169 label100))))
176 (* alpha
180 a-%offset%)))
187 c-%offset%)
188 (+
192 c-%offset%)
193 (* temp
197 a-%offset%))))
198 label110))))
199 label120))
200 label130)))
213 c-%offset%)
214 zero)
215 label140)))
223 c-%offset%)
224 (* beta
228 c-%offset%)))
229 label150))))
236 (* alpha
240 a-%offset%)))
247 c-%offset%)
248 (+
252 c-%offset%)
253 (* temp
257 a-%offset%))))
258 label160))))
259 label170))
260 label180)))))
275 (+ temp
276 (*
280 a-%offset%)
284 a-%offset%))))
285 label190))
291 c-%offset%)
297 c-%offset%)
299 (* beta
303 c-%offset%))))))
304 label200))
305 label210)))
318 (+ temp
319 (*
323 a-%offset%)
327 a-%offset%))))
328 label220))
334 c-%offset%)
340 c-%offset%)
342 (* beta
346 c-%offset%))))))
347 label230))
348 label240))))))
350 end_label