| blob | a8423a0016bc8fa300378a966a4889d705a2c044 |
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))
80 c-%offset%)
81 zero)
82 label10))
83 label20)))
94 c-%offset%)
95 (* beta
99 c-%offset%)))
100 label30))
101 label40)))))
114 c-%offset%)
115 zero)
116 label50))
117 label60)))
128 c-%offset%)
129 (* beta
133 c-%offset%)))
134 label70))
135 label80))))))
152 c-%offset%)
153 zero)
154 label90)))
162 c-%offset%)
163 (* beta
167 c-%offset%)))
168 label100))))
175 (* alpha
179 a-%offset%)))
186 c-%offset%)
187 (+
191 c-%offset%)
192 (* temp
196 a-%offset%))))
197 label110))))
198 label120))
199 label130)))
212 c-%offset%)
213 zero)
214 label140)))
222 c-%offset%)
223 (* beta
227 c-%offset%)))
228 label150))))
235 (* alpha
239 a-%offset%)))
246 c-%offset%)
247 (+
251 c-%offset%)
252 (* temp
256 a-%offset%))))
257 label160))))
258 label170))
259 label180)))))
274 (+ temp
275 (*
279 a-%offset%)
283 a-%offset%))))
284 label190))
290 c-%offset%)
296 c-%offset%)
298 (* beta
302 c-%offset%))))))
303 label200))
304 label210)))
317 (+ temp
318 (*
322 a-%offset%)
326 a-%offset%))))
327 label220))
333 c-%offset%)
339 c-%offset%)
341 (* beta
345 c-%offset%))))))
346 label230))
347 label240))))))
349 end_label