#!/usr/local/bin/sbcl --script
;
; This example shows you how a programming task is made portable
; using the Porta Function and how variables are passed from the
; main program to the portable task.
;

(load "/home/grid/porta.lisp")

;
; Main Program
;

(defvar resultp NIL)
(defvar a NIL)
(defvar b NIL)

(setq a 5)
(setq b 6)

(setq resultp
	(porta
		(list 'progn
			(list 'defvar 'x a)
			(list 'defvar 'y b)
			'(progn
				(defvar z 2)
				(* x y z)
			)
		)
	)
)

(format t "~a~%" resultp)

;
; End Main
;